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CPU NORMAL OPERATIC! SUMMARY 

BASIC LOAOER 

I. LOAO AND GO MODE PROVIOES NORMAL LOAO FOR CPU AND 
INTERRUPT TESTS. 

I. DIAGNOSTIC MODE USED ONLY WHEN LOAD AND GO MOOE 14 IN0PERA3LE. 
SEE DESCRIPTION FOR DIAGNOSTIC OPERATING INSTRUCT IONS 

CPU TEST 

1. SET All CONSOLE BIT SWITCHES OFF. 

2. LOAD BASIC LOAOtd FOLLOWED BY CPU TEST DEC AND TWO BLANK CARDS. 
). PROG WILL LOAD ANO STOP WITH 1 REG AT 3000 ADOR 0120. 

t. SET ALL BIT SWITCHES TO FFFF AND PRESS PROG START 

5. FROG WILL STOP WITH B REG AT 3001 AOOR. 02»"«. 

h. SET SWITCHES OFF PRESS START. 

7. PROG WILL HALT WITH B REG AT J002 AOOR. 02CS. SEE i-2 FOR OPTIONS 
ANO PRESS START 

8. PROG will RUN APPRO* 2 MIN. THEN STOP AT END OF TEST WITH B REG AT 
3003 AOOR 0F62. 

9. ERRORS ARE INDICATED BY ERROR WAITS. SEE DESCRIPTION SECT. 3.S. 

CORE TEST 

1. SET ALL CONSOLE BIT SWITCHES TO 2ER0. 

2. LOAO RELOCATING IGACE" FOLLOWED BY HI CORE TEST DCCR. 10 :ORE TEST DECK 
ANO TWO HANK CARDS. 

3. HI CG'f WILL LOAD. AND HALT y|TH B REG AT 3001. THE CORE • HE WILL BE IN THE 
ACCUMULATOR 

'l. PRESS START hi CORE will PUN S MIN. FOR EACH 8k. 

5. PRESS START. LO CCPC WILL LO't. HALT TO DISPLAY COM SI2E. RUN APPRO*. 
2 mi . THEN STOP AT :N0 OF TfST WAIT 30FF. AT LOCATION 0"CC. 

€>. ERRORS ARE INDICATED BY ERROR WAITS; SEE DESCRIPTION SECT. 3.5- 

CORE CQJuSTMENT 

1. USED ONLY WHIN A CORE VOLTAGE ADJUSTMENT IS NECESSARY. SEE DESCRIPTION. 

ONE CARD PROGRAMS 

I ISED ONLY WHEN PROGRAM LOAD IS FUNCTIONING. BUT THE \A5lt DIAGNOSTIC LOADER IS 
UNABLE TO CORRECTLY LOAD THE CPU OR CORE TESTS. SEE DESCRIPTION FOR OPERATION. 

I'ITCRRLP T TEST 

I. USED ONLY TO AID IN DIAGNOSING BASIC LOADER FAILURES IN LOAO AND CO MODE. 
SEE DESCRIPTION FOR OPERATION. 

NOTE I A HARD ERROR IS A REPEATABIE ERROR WHICH IS CAUSEO BY A 

HARDWARE FAILURE. A SOFT ERROR IS AN INTERMITTENT ERROR WHICH 
MAY BE CAUSED BY EITHER AN INTERMITTENT HARDWARE FAILJRE OR BY 
MARGINAL CORE VOLTAGE AOJUST-ENT. THE DISTINCTION BETWEEN THE 
TWO IS DIFFICULT AND MUST tl LEFT TO THE DISCRETION OF THE 
INDIVIDUAL CE. 
2 PART NUMBER IS THE SAME FOR BOTH CARD DECK OR PAPER TAPE 
PROGRAM. WHEN 0RDERIN3 SPECIFY CARD OR TAPE 

3. CONTWl OPTION BIT SWITrM SETTINGS ARE FOUND IN THE PROGRAH 
DESCRIPTION 
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MONITOR CONTROLLED I/O TEST NORMAL OPERATION SUMMAR Y 

I. Ft* UNO SYSTEM-PLACE RELOCATING LOADER. FOLLOWED BY MONITOR II AND I/O TESTS IN THE DESIRED RUN 
SEQUENCE IN THE CARD READER ANO MAKE READER READY. 

A. TO RUN TESTS ON AN INDIVIDUAL TEST BASIS. PLACE A BLANK CARD AFTER EACH I/O TEST DECK. 
B TO RUN TESTS IN OVERLAP MODE. PLACE A BLANK CARD AFTER THE LAST I/O TEST DECK. 
C. TO STOP MONITOR AFTER ALL PROGRAMS ARE LOADED. PLACE BIT SW IS ON BEFORE LOADING. 
PRESS STOP. RESET ANO PROGRAM LOAD, 
f. A STATUS MESSAGE VILt PRINT OUT AFTER EACH I/O TEST IS LOADED. THIS MESSAGE WILL INDICATE LOADING 
SEQUENCE NUtBER OF THE TEST, THE PROGRAM ID (PIO) NUMBER, THE STARTINC ADORESS IN STORAGE ANO THE 
RELOCATION FACTOR. 

3. CONTROL OPTIONS MAY BE ENTERED AT ANY TIME. THIS IS FUNCTION ANO IS EFFECTIVE WHEN BIT SWITCH 
ANO I ARE OFF. IF BIT SWITCHES 1..S.6 ANO 7 ARE OFF MONITOR IS ADDRESSED BUT WHEN THESE 
SWITCHES ARE SET TO A LOADING SEQUENCE NUMBER. THAT I/O TEST IS BEING ADDRESSED. CONTROL OPTIONS 
AND SWITCH SETTINGS ARE: 

• - RESTART 10 - LOCK ON FUNCTION 12 - LOOP ON ERROR (ONCE PER ERROR) 1* - HALT ON ERROR 

9 - PRINT RTN 10 II - LOOP ON PROGRAM 13 - BYPASS ERROR PRINT OUT 15 - HALT 

4. TO STOP ALL PROGA/MS, PRESS PROGRAM STOP. MONITOR WILL WAIT (3001) AT ADDRESS 0<tOC. 

5. TO RESTART AFTER PROGRAM STOP. PRESS PROGRAM START. MONITOR MAS SAVED THE STATUS OF TESTS, 

«, TO STOP ANY ONE PROGRAM (WHILE OVERLAPPING), SET BIT SWS TO ON01 ANO PRESS INT. REQ. KEY. N-LOAO 

SEQUENCE NUMBER 
T. TO RESTART ANY ONE PROGRAM. SET BIT SWS TO 0N80 ANO PRESS INTERRUPT REQUEST KEY. N - LOAD SEQUENCE NUMBER 
ft. ERROR TYPE OUTS ARE EXPLAINED IN SECTION VI CF EACH I/O DESCRIPTION. 

9 AS EACH TEST REACHES ITS NORMAL END A MESSAGE WILL BE TYPEO OUT FOR EXAMPLE XXXX END, WHERE XXXX = PIO 
NOTE : THERE ARE TIME DEPENDENT DEVICES WHICH MUST BE SERVICED WITHIN A SPECIFIED TIME LIMIT AFTER AN 

INTERRUPT OCCURS. IF THESE LIMITS ARE NOT COMPLIED WITH, DATA WILL BE LOST BETWEEN THE PROCESSOR 

AND THE I/O DEVICE. THESE TYPES OF ERRORS OCCUR WHEN ANOTHER OEVICE'S PROGRAM KEEPS CONTROL 

IN MAINLINE OR INTERRUFTROUTINE FOR EXTENDED PERIODS OF TIME. 

PROGRAMS WITH A HISM RATE OF INTERRUPTS MAY CAUSE OTHER PROGRAMS TO LOSE MAINLINE CONTRCL. 

THIS LOSS OF CONTROL BETWEEN AN XIO READ. WRITE OR CONTROL AND AN XIC SENSE DEVICE MAY CAUSE 

FALSE OSW ERRORS. THIS TYPE OF ERROR SAYS THE DEVICE SHOULD HAVE BEEN BUSY ANO NOT READY. 

THE PROBLEM IS THE DEVICE HAS COMPLETED IT'S OPERATION , DROPPED BUSY ANO BROUGHT UP READY 

BEFORE CONTROL WAS REGAINEO BY THE PROGRAM INDICATING THE ERROR . 

IF ANY OF THE TYPES OF ERRORS ABOVE ARE SUSPECTED IN OVERLAP, RUN THE FAILING TEST ALONE TO 

CHECK FOR TRUE ERRORS. 
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1. PURPOSE 

THE PURPOSE OF THE 1130 CENTRAL PROCESS UNIT FUNCTION TEST IS TO LOCATE 
FAILING INSTRUCTIONS. EACH SEPARATE CPU INSTRUCTICN IS TtSTED AND CHECKED 
FOR COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. FEATURES THAT ARE NOT 
UNIQUE TO AN OPERATION CODE (INDEXING, INDIRECT ADDRESSING, ETC.) ARE ALSO 
TESTED. I/O RELATED FEATURES (INTERRUPT, CYCLE STEAL, ETC.) AkE NOT TESTED. 

*####*****#*********************************************** * #******>************** 

* PROGRAM RUNNING TIME * 

* 2 USEC MACHINE - APPROXIMATELY 1 MINUTE 

* 4 USEC MACHINE - APPROXIMATELY 2 MINUTES * 

a****************************** **************************= • J ' : *********' 






2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE PROGRAM CAN BE OPERATED BY ITSELF BUT MUST BE LOADED BY THE 1130 
BASIC DIAGNOSTIC LOADER. 

2.2 EQUIPMENT PREREQUISITES 

A. 1130 PC HAVING 4096-WORD STORAGE. 

B. CARD READER OR PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

THE1130 CPU FUNCTION TEST (03A1) IS LOADED BY THE 1130 BASIC LOADER. 
SEE THE 1130 BASIC LOADER DOCUMENTATION FOR THE DESCRIPTION OF THE 
LOADING PROCEDURE. 

3.2 PROGRAM OPERATION 

AFTER THE PROGRAM IS LOADED THE FOLLOWING N( RMAL WAITS OCCUR, 

DESCRIPTION AND ACTION 

START OF PROGRAM. SET ALL BIT SWITCHES ON. PRESS START. 

TESTING OF BIT SWITCHES ON COMPLETE, TUKN UFF, PRESS START. 

TESTING OF BIT SWITCHES OFF COMPLETE SET IN OPTIHN, PRESS START. 

PROGRAM COMPLETED. PUSH START TO RERUN PROGRAM. IF OTHER WAITS 
OCCUR, REFER TO SECTION 3.5 FOR ERROR ISOLATION. 

ANY WAITS OTHER THAN THOSE ABOVE ARE ERROR WAITS. 

WHEN AN ERROR WAIT IS OBTAINED, 

1. SEE THE PROGRAM LISTING TO DETERMINE THE PROBLEM. ERROR WAITS 
ARE DOCUMENTED AT THE FRONT OF THE PROGRAM LISTING BY THE 
CONTENTS OF THE B REGISTER. 

2. IF THE ERROR WAIT HAS B REGISTER LESS THAN 3069, THE OPERATOR 
CANNOT LOOP ON THAT ERROR. INSTEAD, The OPERATOR SHOULD SINGLE 
INSTRUCTION STARTING AT THE BEGINNING OF THE FAILING ROUTINE TO 
DETERMINE THE EXACT FAILURE. (SECTION 3.5) 
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3. IF THE ERROR WAIT HAS B REGISTER GREATER THAN 3068. THE OPERATOR 
SHOULD, (SECTION 3.5) 

A. LOOP INSTRUCTION BEING TESTED (BIT SH 8 ON) 
OR IF A LARGER LOOP IS DESIRED 

LOCK ON ERROR (BIT SW 12 ON) 

OR 
LOOP ON ROUTINE (BIT SH 10 ON) 

B. SINGLE STEP TO LOCATE THE EXACT FAILURE. 

C. IF NO ERROR OCCURS, BYPASS THE ERROR MAIT (BIT SH 14 ON) AND 
USE A SCOPE TO DETERMINE THE FAILURE. 

TABLE 1 

***#***#*******##**#♦#****♦********♦***********»****#*********##***#*#********** 

* DATA ENTRY SHITCHES * DESCRIPTION * 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 1* 15 * * 

* ...... * 



* 1 BYPASS ERROR HAIT (SEE NOTE) * 

* * 

* .... 1 LOCK ON ERROR * 

* . . . . * 

* . . . 1 LOOP PROGRAM * 

* . . . * 

* . . 1 LOOP ON ROUTINE * 

* . . * 

* . 1 LOOP ON INSTRUCTION BEING TESTED * 

* • * 

* 1 BYPASS MPL/DIV TEST * 

* * 

* NOTE- IF ERROR OCCURS, BITS 12 OR 8 MUST BE ON TO MAKE BIT 14 EFFECTIVE. * 



3.3 TERMINATION 

NORMAL TERMINATION OCCURS HITH PROGRAM STOPPING AT HAIT HITH 
B REG = 3003. 

3.4 RESTART PROCEDURE 

PRESS STOP, RESET, AND START BUTTONS. 

3.5 ERROR HAITS 

THERE ARE THO TYPES OF ERROR CONDITIONS HHICH CAUSE ERROR HAITS. 

1. ERRORS HHICH USE THE COMMON ERROR CONTROL ROUTINE (FOOO). 

2. ERRORS HHICH OCCUR BEFORE SUFFICIENT PORTIONS OF THE HARDHARE 
HAVE BEEN CHECKED OUT TO ALLOH USE OF THE COMMON ERROR CONTROL 
ROUTINE. 

ERRORS HHICH USE THE COMMON ERROR CONTROL ROUTINE HAVE B REG NUMBERS 
OF /3069 AND UP. HHEN A NUMBEREO HAIT OCCURS, BITS 5-15 OF THE STORA 
(B REG = 3XXX). HHEN A NUMBERED WAIT OCCURS, BITS 5-15 OF THE STORAGE 
BUFFER REGISTER GIVE THE ERROR IDENTIFICATION NUMBER. TO FIND THE 
FAILING ROUTINE, LOOK IN THE ERROR IDENTIFICATION TABLE (IN FRONT OF 
THE LISTING) . THIS HILL GIVE YOU THE SYMBOLIC AND ACTUAL STARTING 
ADDRESS OF THE ROUTINE THAT FAILED. 

ERRORS HHICH DO NOT USE THE COMMON ERROR CONTROL ROUTINE HAVE B 
REGISTER FROM /3003 THRU /3068. THE INSTRUCTION REG HILL POINT 
DIRECTLY TO THE FAILING ROUTINE. TO FACILITATE FINDING THE START OF 
A TEST ROUTINE EACH TEST ROUTINE BEGINS HITH A LABEL HAVING AN A OR B 
AS ITS FIRST LETTER. IN THE LISTING EACH ROUTINE IS FURTHER BRACKETED 
BY A SOLID LINE OF ASTRISKS. TO FIND THE FAILING ROUTINE OF ERRORS 
HHICH DO NOT USE THE COMMON ERROR CONTROL START AT THE LOCATION 
SPECIFIED BY THE ERROR WAIT AND WORK UP THE LISTING (BACKWARDS) UNTIL 
THE FIRST SYMBOLIC LOCATION WHICH HAS A LABEL BEGINNING HITH A AND B. 
THIS IS THE START OF THE FAILING ROUTINE. 
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THO WAYS OF LOCATING A FAILURE ARE AS FOLLOHS- 

A. DETERMINE HHAT FAILURE CAUSED THE ERROR WAIT. TO LOCATE THE 
FAILURE, IT IS RECOMMENDED THAT THE PROGRAM BE MANUALLY ENTERED 
AT THE START OF THE FAILING ROUTINE AND SINGLE INSTRUCTION, 
FOLLOHING THE LISTING TO DETERMINE THE EXACT FAILURE. 

B. USE AN OSCILLOSCOPE TO HELP LOCATE THE FAILURE. IF THE FAILURE 
IS IN THE COMMON-ERROR ROUTINE, SIMPLY TURN ON CONSOLE ENTRY 
SHITCH 8 AND DEPRESS START PUSHBUTTON TO LOOP ON THE INSTRUCTION 
BEING TESTED. IF THE FAILURE IS IN THE FIRST PART OF THE 
PROGRAM (BEFORE THE COMMON ERROR ROUTINE INSTRUCTIONS HAVE BEEN 
CHECKED OUT), A BRANCH (MDX) TO THE BEGINNING OF THE ROUTINE MAY 
BE MANUALLY INSERTED IN PLACE OF THE WAIT INSTRUCTION. THEN, THE 
ROUTINE MAY BE LOOPED. 

4. PRINTOUTS (NONE) 

5. COMMENTS 

THE 1130 CPU FUNCTION TEST STARTS HITH VERY SIMPLE INSTRUCTIONS AND 
DETERMINES IF EACH INSTRUCTION PERFORMS TO SPECIFICATIONS. EACH SUCCESSIVE 
ROUTINE ATTEMPTS TO UTILIZE ONLY AN INSTRUCTION THAT HAS NOT BEEN PREVIOUSLY 
TESTED. THE PROGRAM OPTIONS PROVIDE A MEANS FOR CONTINOUSLY LOOPING ThE 
ENTIRE PROGRAM AND ALSO ALLOW FAILING ROUTINES TO BE LOOPED. 

AN ATTEMPT IS MADE DURING THE EARLY STAGES OF THE PROGRAM TO DEVELOP THOSE 
INSTRUCTIONS HHICH ALLOH THE USAGE OF THE COMMON CONTROL iFOOE AND F005) AND 
ERROR (FOOO) ROUTINES. AFTER THESE INSTRUCTIONS HAVE BEEN TESTED THE USER 
THEN HAS THE ABILITY TO REOUEST VARIOUS CONTROL OPTIONS BY MEANS OF THE DATA 
ENTRY SHITCHES. 

5.1 OPERATING MODES 

THE NORMAL MODE OF OPERATION IS HITH THE DATA ENTRY SHITCHES SET TO 
/OOOO. THIS CAUSES A SINGLE PASS THROUGH THE PROGRAM WITH AN ERROR 
HAIT OCCURING IF AN ERROR IS DETECTED. 

IF AN ERROR IS DETECTED AND THE COMMON ERROR WAIT OCCURS, THE USER 
SHOULD TURN ON THE •• LOOP ON ROUTINE " (DATA ENTRY SWITCHES SET TO 
/0020) AND SINGLE INSTRUCTION THROUGH THE FAILING ROUTINE TO ISOLATE 
THE FAILING INSTRUCTION. 

IF THE FAILING ROUTINE DOES NOT FAIL HHEN EXECUTED IN SINGLE 
INSTRUCTION MODE, THE USER CAN TURN ON THE '• BYPASS ERROR WAIT' 1 
SWITCH AND THE '"LOOP ROUTINE" SWITCH (DATA ENTRY SWITCHES SET TO 
/0022) AND PROCEED TO USE SCOPING TECHNIQUES TO ISOLATE THE FAILURE. 

5.2 PROGRAM LABELS 

LABELS OCCURING IN THE PROGRAM LISTING CAN BE QUICKLY IDENTIFIED 
AS FOLLOWS- 

A. LABELS STARTING WITH A OR B INDICATE THE BEGINNING OF A TEbT 
ROUTINE. 

B. LABELS STARTING WITH G, H, J, OR K INDICATE COMMUNICATION 
LABELS WITH A ROUTINE. 

C. LABELS STARTING WITH V OR X ARE RESERVED FOR WAITS. 

D. LABELS STARTING WITH N, R, OR S INDICATE A CONSTANT OR 
WORK AREA. 

E. LABELS STARTING WITH F, W, Z OR U ARE USED IN COMMON OR SPECIAL 
ROUTINES THAT ARE NOT A REGULAR TEST ROUTINE. 

6. APPENDIX (NONE) 



LAST PAGE 



DATE 


02JAN66 


0LMAY66 


15N0V66 


15JUN67 


EC NO. 


415490 


415490C 


419643 


420317 
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0000 



ABS 
ORG 



/3000 



P*RT NO. 2191204 
PACE 1 



3A100020 
3A 100030 



•••***•*••*•**••***• 



c 

t 

c 
c 
c 
c 
c 
c 
c 
c 
c 



B-REC I-REG 
3000 012E 



3001 02B5 



ft************************************************** 3A100040 

3A1000S0 
3A100060 
3A100070 
3A1OO080 
3A100090 
3A100100 
3A100110 
3A1O0120 
3A100130 
3A100140 
3A100150 
3A100160 
3A100170 
3A100180 
3A100190 
3A100200 

»»****»»»*»**»**»******»**»*»*»»«»»»»#*»»***»»**»<»»3A100210 

3A100220 
OPERATING INSTRUCTIONS 3A100230 

3A100240 
3A 100250 
3A100260 
3A100270 
3A1OO280 
3A100290 
3A100300 
3A 1003 10 
3A100320 
3A100330 
3A100340 
3A 100350 
3A100360 
3A100370 
3A100380 
3A100390 
3A100400 
3A100410 
3A100420 
3 A 100430 
3 A 100440 
3A 100450 
3A100460 
3A 100470 
3A100480 
3A100490 
3A100500 
3A 1005 10 
3A100520 
3A100530 

»»*»»••»*••»••*•»****»»»»*»**»»*»»»»»**•»»*»**»»*** 3A100540 
A HALT AT 3A100550 

»**»»•*»**»*#»»*•»*»**♦*♦*»*#*#»#»»»»»»»*»»»**»»#»» 3A100560 

3A 100570 
1130 AND 1800 3A100580 

SET DATA ENTRY SWITCHES 3A100590 
TO /FFFF £ PRESS START 3A 100600 

3A 1006 10 
I1800O ALSO SET S/P SMS TO 3A100620 
/FFOO AND PRESS START 3A100630 

3A100640 
SET SENSE/PROG AND 3A100650 
DATA ENTRY SWITCHES 3A100660 
TO ZEROS AND PRESS 3A100670 
START 3A100680 

3A 100*90 



BIT SWITCH SETTINGS 

BIT 14 ON BYPASS ERROR WAIT 

BIT 12 OR 8 MUST BE ON TO 
MAKE BIT 14 EFFECTIVE. 

BIT 13 NOT USED 

BIT 12 LOCK ON ERROR 

BIT 11 ON LOOP PROGRAM 

BIT 10 ON LOOP ROUTINE 

BIT 9 NOT USED 



BIT 
BIT 



8 LOOP ON INSTRUCTION BEING 

TESTED 
7 ON BYPASS MPL/D1V TEST 



DC 



X000C1 



DC 



XOOltl 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
4196*3 



15FEB68 26AUC68 
420403 420403A 



o 

o 



o 

o 
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•1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



3002 02C6 



3003 0F63 






DC 



DC 



X003C1 



X007S.1 



SET SWITCHES FOR OPTIONS 
AND PRESS START 

PROGRAM COMPLETED 



»*»»»»»»»«**»**»***»»»»»*»*»*»»»*»»**»**»»*»« 



• ERROR IDENTIFICATION LISTING 

» 



**»»******»**»*«»•»***♦****»»*»**»»*»»«*»»»*««»»»»»*»»*****»*»»•**«»»».»» 3* 100820 

ADDRESS * 3A100830 

OF * 3A1OO04O 

B-REG ROUTINE * A REG REG XR-1 XR-2 XR-3 STATUS 3*100650 

•*»»•«»»*»**»»*»»»»*»«»»»»»»»»»»»»»•»»**»»»»»»»»»»«»»»»»»»»»•»•»•»•••»•• 3*100860 



PART NO. 2191204 
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3A1OO7O0 
3A1O0710 
3A10072C 
3A 100730 
3A10C740 
3A 100750 
3A100760 
3A 100770 
3A100780 
3A100790 
3A100800 
3*100810 



3004 012E 



DC A080 
SHORT FORM MDX FAILED 



MOX 
TO MODIFY 



3005 
3006 



3007 
3008 
3009 
300A 



012E 
012E 



012E 
012E 
012E 
012E 



300B 012E 



DC A080 MDX MOOCO 

DC A080 CI 

SHORT FORM MDX -SHOULD HAVE MODIFIED I CTR 

£2 BUT MODIFIED BY OR CI 



DC 
DC 
DC 
DC 



A080 
A080 
A080 

A080 



MDX 



SHORT FORM MDX SHOULD HAVE MODIFIED 
64 BUT MODIFIED BY 0, CI, C2 OR S3 



300C 
300D 
300E 



012E 

012E 
012E 



MOX 



MOX 
-2, 



OC A 080 NDX 

SHORT FORM FAILED TO MODIFY I CTR 



DC A080 MOX MOOCO 

DC AOBO CI 

DC A080 £2 

SHORT FORM-SHOULD HAVE MODIFIED I CTR 



DID MODIFY BY 0, CI OK C2 



300F 013F 



N/A 
BSC 



OC AOCO 

N/A N/A 
SKIPPEO-SHOULD 



3010 
3011 



013F 

013F 



DC 
OC 



N/A 
N/A 



N/A 
N/A 



AOCO 

AOCO 

N/A 

N/A 



SSCtC 
N/A N/A 
NO 7 HAVE 



BSC, 



N/A N/A 

N/A N/A 
FIRST BSC SKIPPEO-SHOULD JHOT HAVE 
SECOND BSC FAILED TO SKIP- INDICATING 1ST BSC 
FAILEO TO TURN OFF OVERFLOW 



3A 100870 
I CTR CI 3A1008U0 

3A 100890 
3A100900 
3A100910 
3A100920 
3A 1009 30 
3A100940 
3A100950 
3A100960 
MODCO 3A 100970 
CI 3A1O09B0 
C2 3A100990 
C3 3 Al 01000 
I CTR .'■ 3A 101010 
3A101020 
3A101030 
3A101040 
3A10105O 
3A101060 
3A 101070 
3A101080 
3A 101090 
3A101100 
3A 10 1110 
" 3A101120 
3A 101 130 
3A101140 
3A10U50 
3A101160 
CCO 3A 101 170 

3A101180 
3A101190 
3A101200 
3A101210 
3A101220 
CCO AFTER LDS 3A101230 
C AFTER 1ST BSC 3A101240 
3A 10 1250 



3012 013F 



3013 014C 



N/A 

BSC 



OC AOCO BSCC 

N/A N/A N/A N/A OFF 
010 NOT SKIP WITH OVERFLOW OFF 






DC A100 LD 

• 0000 N/A N/A N/A WA 

• ACCUM N!,T EQUAL TO 0000 



N/A 



DATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V*6 
419643 



15FEB68 
420403 



26A".i6B 
42CV03A 



3A101260 
3A101270 
3A101280 
3A101290 
3A101300 
3A10131O 
3A101320 
3A 101 330 
3 Al 01 340 
3A10135O 
3A 101 360 
3A101370 
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• 3A101380 

«»s«»»«»»»»»*»»*»«»*»»*»*»*»»**»**»*»**»***»*»*»»»*»»**»»*»**««*****»**»3A101390 

ADDRESS » 3A101400 

OF * 3A 101410 

B-REG ROUTINE » A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A101420 

••e*»»#»»»»»»»«**»**»»«**»»»»«»**»»**»»*»***»*****»*****»***************3A 101430 



3014 014C 



3015 014C 



3016 0154 



DATE 
EC NO. 



3017 0154 



3018 0154 



3019 





0154 


301A 





0154 


301 B 





0154 


30 1C 





0154 


301D 





0154 


301E 





0154 


301 F 





0154 


3020 





0154 


3021 





0154 


3022 





0154 


3023 





0154 


3024 





0154 


3025 





0154 


3026 





0154 


3027 





0154 


3028 





0154 


3029 





0154 



302A 
302B 
302C 
3020 
302E 
302F 
3030 
3031 



01A0 
01A0 
01A0 
OlAO 
0154 
OlAO 
OlAO 
OlAO 



A100 LD 
N/A N/A N/A N/A N/A 1ST LO 
N/A N/A N/A N/A N/A 2ND LO 
0000 FOLLOMtD BY LOAD 0000 DID NOT 



DC 
0000 
0000 
A LOAD 
LEAVE ACCUM EQUAL TO 0000 



DC A100 
0000 N/A N/A 
BSC FAILED TO SKIP 



BSC.E 
N/A N/A 



N/A 



DC A140 
0000 N/A N/A 
FFFF N/A N/A 
LOAD FFFF ON TOP OF 
NEGATIVE 



LD 
N/A N/A N/A 1ST VALVE 
N/A N/A N/A AFTER LO 
0000 OID NOT LEAVE ACC 



DC 



FFFF 



N/A 



A 140 
N/A 



BSCfC 
N/A N/A 



DC A 140 BSC.E 

• FFFF N/A N/A N/A N/A 

* BSC SKIPPED SHOULD NOT HAVE 



N/A 



N/A 



FFFF 
0000 



DC A140 ACCOM NOT EQUAL 

DC A 140 ACCUM NOT EOUAL 

OC A140 ACCUM NOT EOUAL 

DC A140 ACCUM NOT EOUAL 

OC A140 ACCUM NOT EQUAL 

DC A140 ACCUM NOT EQUAL 03FF 

OC A140 ACCUM NOT EQUAL 01FF 

DC A 140 ACCUM NOT EOUAL 

DC A140 ACCUM NOT EQUAL 

OC A 140 ACCUM NOT EQUAL 

DC A140 ACCUM NOT EQUAL 

DC A140 ACCUM NOT EQUAL OOOF 

DC A140 ACCUM NOT EQUAL 0007 

OC A140 ACCUM NOT EOUAL 0003 

OC A140 ACCUM NOT EQUAL 0001 

DC A140 ACCUM NOT EQUAL 0000 

OC A140 ACCUM NOT EQUAL 0000 
N/A N/A N/A N/A N/A LOADED 
N/A N/A N/A N/A N/A AFTER SRA8S 



7FFF 
3FFF 
1FFF 
OFFF 
07FF 



OOFF 
007F 
003F 
001F 



* THE ABOVE WAITS OCCUR AS A RESULT OF A 

* FAILURE ON A ROUTINE THAT LOADS FFFF ON 

* 0000 ANO CHECKS USING SRA 1 AND BSC E. 



02JAN66 
415490 



01MAY66 
415490C 



OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 



15N0V66 
419643 



A180 
A180 
A180 
A180 
A140 
A180 
A180 
A180 



15FEB68 
420403 



ACCUM 


NOT 


EOUAL 


FFFF 


ACCUM 


NOT 


EQUAL 


FFFF 


ACCUM 


NOT 


EQUAL 


7FFF 


ACCUM 


NOT 


EOUAL 


3FFF 


ACCUM 


NOT 


EOUAL 


1FFF 


ACCUM 


NOT 


EQUAL 


OFFF 


ACCUM 


NOT 


EQUAL 


07FF 



ACCUM NOT EQUAL 03FF 



26AUG68 
420403A 



3A101440 

3A101450 

3A 101 460 

3A 10 1470 

3A101480 

3A101490 

3A101500 

3A101510 

3A10152O 

3A101530 

3A101540 

3A101550 

3A101560 

3A101570 

3A101580 

3A101590 

3A101600 

3A101610 

3A101620 

3A101630 

3A101640 

3A101650 

3A101660 

3A101670 

3A101680 

3A 10 1690 

3AI 01700 

3A101710 

3A101720 

3A10173O . 

3A101740 

3A101750 

3A101760 

3A101770 

3A101780 

3A101790 

3A101800 

3A101810 

3A101820 

3A101830 

3A101840 

3A10185O 

3A101860 

3A101870 

3A101880 

3A101890 

3A101900 

3A101910 

3A101920 

3A101930 

3A101940 

3A 10 1950 

3A101960 

3A101970 

3A101980 

3A101990 

3A102000 

3A102010 

3A102020 

3A102030 

3A102040 

3A 102050 
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c 
c 
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c 
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c 
c 
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»»»•»**»*»»*»**•****»***»***♦*«»»»**»»»***»»»»*»»»*»«**»**»**»*»*»»«*»»• 
ADDRESS * 
OF * 
B-REG ROUTINE • A-REG Q-REG XR-1 XR-2 XR-3 STATUS 



3032 





OlAO 


3033 





OlAO 


3034 





OlAO 


3035 





OlAO 


3036 





OlAO 


3037 





OlAO 


3038 





OlAO 


3039 





OlAO 


303A 





OlAO 


303B 





OlAO 


30 3C 





OlAO 



303D 01EB 



303E 01EB 



303F 01F5 



3040 01F5 



3041 01F5 



3042 01F5 

3043 OIF 5 



3044 01F5 



OC 
OC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 



FFFF 
0000 



N/A 
N/A 



A 180 
A180 
A1S0 
A180 
A1B0 
A180 
A180 
A180 
A1B0 
A180 
A180 
N/A 
N/A 



ACCUM NOT EOUAL 01FF 
ACCUM NOT EQUAL OOFF 
ACCUM NOT EQUAL 007F 
ACCUM NOT EQUAL 003F 
ACCUM NOT EOUAL 00 IF 
ACCUM NOT EOUAL OOOF 



N/A 
N/A 



ACCUM NOT 
ACCUM NOT 
ACCUM NOT 
ACCUM NOT 
ACCUM NOT 
N/A 



EOUAL 0007 
EOUAL 0003 
EOUAL 0001 
EOUAL 0000 
EOUAL 0000 
N/A LOADED 



N/A N/A AFTER SRA3S 



DATE 
EC NO. 



02JAN66 
415490 



THE ABOVE WAITS OCCUR AS A RESULT OF A 
FAILURE ON A ROUTINE THAT LOADS FFFF ON 
FFFF AND CHECKS USING SRA 1 ANO BSC E. 



DC A1C0 
0000 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



LD 0000 ON 0000 
N/A N/A 



OC A1C0 LD 
0000 N/A N/A N/A 
FFFF N/A N/A N/A 
ACCUM NOT EOUAL FFFF 



FFFF 

N/A 

N/A 



ON 0000 
N/A BEFORE LD 
N/A AFTER LD 



DC A1D0 LD 
0000 N/A N/A N/A N/A N/A 
ACCUM NOT EOUAL 0000 



DC 
0000 N/A 
0000 N/A 
WITH ACCUM 
NOT RESULT 



DC 
FFFF N/A 
0000 N/A 
WITH ACCUM 
NOT RESULT 



A1D0 EOR 

N/A N/A N/A N/A 

N/A N/A N/A N/A 
EOUAL 0000 AN EOR USING 0000 DID 
IN ACCUM EQUAL 0000 



A1D0 EOR 

N/A N/A N/A 

N/A N/A N/A 
EQUAL FFFF AN EOR USING FFFF DID 
IN ACCUM EQUAL OOCO 



N/A LOADED t EOR 
N/A SHOULD BE 



DC 

OC 
0000 N/A 
FFFF N/A 
WITH ACCUM 
NOT RESULT 



A1D0 

A1D0 

N/A 

N/A 



EOR 



N/A N/A K/A BEFORE 
N/A N/A N/A S/B AFTER 

EOUAL 0000 AN EOR USING FFFF OID 

IN ACCUM EQUAL FFFF 



DC A100 EOR 
FFFF */A N/A N/A N/A N/A BEFORE EOR 
FFFF N/A N/A N/A N/A N/A S/B AFTER 
WITH ACCUM EQUAL FFFF AN EOR USING 0000 DID 
NOT RESULT IN ACCUM EQUAL FFFF 



01MAY66 
415490C 



15N0V66 
419643 



15FEB6B 
420403 



26AUG6B 
420403A 
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3A1 02060 

3A102070 

3A102080 

3A102090 

3A1021O0 

3A102110 

3A102120 

3A102130 

3A102140 

3A102150 

3A102160 

3A102170 

3A1021BO 

3 A 102 190 

3A102200 

3A102210 

3A102220 

3A102230 

3A102240 

3A102250 

3A102260 

3A102270 

3A102280 

3A 102290 

3A1 02300 

3A102310 

3A102320 

3A102330 

3A 102 340 

3A 102 350 

3A102360 

3A102370 

3A10238O 

3A 102390 

3A102400 

3A102410 

3A102420 

3A 102430 

3A102440 

3A 102450 

3A102460 

3A 102470 

3A102480 

3A 102490 

3A102500 

3A102510 

3A102520 

3A102530 

3A102540 

3A102550 

3A102560 

3A102570 

3A 102 580 

3A 102590 

3A102600 

3A102610 

3 A 102620 

3A 102630 

3A102640 

3A 102650 

3A102660 

3A102670 

3A102680 

3A102690 

3A102700 

3A102710 

3A102720 

3A 102730 
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IBM MAINTENANCE DIAGNOSTIC PROGRAN FOR THE 1130 SYSTEM 
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PART NO. 2191204 
PACE 3 



,»»«»*••*•••••*•••••»**•••*••**••••**** ****»******»»********************3A102740 

ADDRESS • 3A1027S0 

W • 3A102760 

B-REG ROUTINE * A-RE6 Q-REG XR-1 XR-2 XK-3 STATUS 3A102770 



3045 01F5 



3046 0214 



3047 0214 



304B 
3049 



0220 
0220 



304A 0220 



3040 022 D 



304C 0220 
3040 0220 



304E 
304F 



3050 
3051 



0220 
0220 



0220 
0220 



3052 022D 



3053 

3054 



022D 
0220 



7FFF 
0000 
WITH 



DC A100 

N/A N/A N/A 

N/A N/A N/A 

ACCM EQUAL 7FFF AN 



SRA £ EOR 

N/A N/A S/8 AFTER SRA 
N/A N/A S/B AFTER EOR 
EOR USING 7FFF OID NCT 



• 

• RESULT IN ACCUN EQUAL TO 0000 

• RESULT IN ACCN EQUAL TO 0000 

OC A1E0 LO LONG FORM 

• 0000 N/A N/A N/A N/A N/A S/B AFTER LO 

• ACCUN NOT EQUAL OOOO-INOICATING WRONG 

• LOCATION WAS LOADED 

* 

DC A1E0 LD LONG FORN 

• CN1E0. N/A N/A N/A N/A N/A S/B AFTER LO 

• 0000 N/A N/A N/A N/A N/A S/B AFTER EOR 

• ACCUN NET EQUAL 0000 INDICATING WRONG LOCATION 

• WAS LOAOEO 
* 

* 

DC A1F0 LO INO 
DC A1F0 LO INO 

• 0000 N/A N/A N/A N/A N/A S/B FOR BSC 

• ACCUN NOT EQUAL 0000 INDICATING WRONG 

• LOCATION WAS LOADED 

• - 

DC A200 BSC LONG FORN 

• UNCONDITIONAL BSC DID NOT BRANCH 

: / ^ 

/ DC A200 BSC LONG FORN 

• UNCONDITIONAL BSC SKIPPED-SHOULO BRANCH 

* 

1 DC A200 BSCtE LONG FORN 
DC A200 

• FFFF N/A N/A N/A N/A N/A 

• BSC FELL THRU OR SKIPPED-SHOULD BRANCH 

• DID NOT SKIP OR SKIPPED - SHOULD BR. 
* 

DC A200 BSC ,6 LONG FORM 
DC A200 

• FFFF N/A N/A N/A N/A N/A S/B AT TEST 

• 010 NOT SKIP OR SKIPPED - SHOULD BP. 
* 

DC A200 BSCtZ LONG FORM 
OC A200 

• FFFF N/A N/A N/A N/A N/A S/B AT TEST 
« BSC OID NOT SKIP OR SKIPPED - SHOULD BR. 

* 

DC A200 BSCt- LONG FORM 

• FFFF N/A N/A N/A N/A N/A S/B AT TEST 

• BSC BRANCHED-SHOULD NOT 



DC 

DC 
N/A N/A 
BSC OID NOT 



A200 BSC.C LONG FORM 
A200 

N/A N/A N/A CGO S/B AT TEST 
SKIP OR SKIPPED-SHOULD BRANCH 



DATE 

EC NO. 



02JAN66 
415490 



01NAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A 102790 

3A102800 

3A1C2810 

3A102820 

3A102830 

3A102B40 

3A 102850 

3A102860 

3A 102870 

3A102880 

3A 102690 

3A 102900 

3A 1029 10 

3A102920 

3A102930 

3A102940 

3A 102950 

3A102960 

3A102970 

3A102980 

3A 102990 

3A103000 

3A 103010 

3A 103020 

3A103030 

3A103040 

3A 103050 

3A103060 

3A 103070 

3A103080 

3A 103090 

3A103100 

3A 1031 10 

3A103120 

3A103130 

3A103140 

3A103150 

3A103160 

3A103170 

3A103180 

3A 103190 

3A103200 

3A103210 

3A103220 

3A 103230 

3A10324O 

3A 103250 

3A103260 

3A103270 

3*103280 

3A 103290 

3A 103300 

3A 103310 

3A103320 

3A103330 

3A103340 

3A 103350 

3A103360 

3A 103370 

3A103380 

3A103390 

3A103400 

3A103410 



PROG 10 
PAGE 



: : 

c • 

c • 

c • 

o • 

o • 

c • 

c • 

c • 

• 

• 

c • 

o • 

o t 

• 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



ADDRESS * 

OF * 

B-REG ROUTINE * A-REG Q-REG XR-l XR-2 XR-3 STATUS 



PART NO. 2191204 
PAGE 3A 



03A1-1 
3 



• 


• 


• 


• 


• 


• 




f 


• 


• 


o 


• 


e 


• 





• 


e 


. • 




• 





• 


• 


• 





• 



3055 0220 

3056 0220 



3057 0220 



3058 022D 



3059 0220 



i05A 0220 
305B 0220 



305C 02 2D 



3050 0220 



305E 0220 
305F 0220 



3060 0270 



3061 0270 



3062 0270 

3063 0270 



3064 0270 



3065 0282 



DC A200 BSC.O LONG FORM 

OC A200 

• N/A N/A N/A N/A N/A CEO S/B AT TEST 

• BSC OID NOT SKIP OR SKIPPED-SHOULO BRANCH 
• 

• 

OC A200 BSC.O LONG FORN 

• N/A N/A N/A N/A N/A C S/B AT TEST 

• BSC FAILED TO TURN OFF OVERFLOW 
• 

* 

DC A200 BSCtC LONG FORN 

• N/A N/A N/A N/A N/A OFF S/B AT TEST 

• BSC BRANCHED-SHOULD NOT 
* 

DC A200 BSCtO LONG FORM 

• N/A N/A N/A N/A N/A OFF S/B AT TEST 

• BSC BRANCHED-SHOULD NOT 

* 

OC A200 BSCt- LONG FORN 
DC A200 

• 0000 N/A N/A N/A N/A N/A 

• BSC OID NOT SKIP OR SKIPPED-SHOULD BRANCH 

* 

DC A200 BSC t£- LONG FORN 

• F FFF m/A N/A N/A N/A N/A S/B AT TEST 

• BSC BRANCHED-SHOULD NOT 

DC A200 BSC, 6- LONG FORN 

• 0001 N/A N/A N/A N/A N/A S/B AT TEST 

• BSC BRANCHED SHOULD NOT 

DC A200 BSC INDIRECT 

DC A200 

• BSC DID NOT SKIP OR SKIPPED-SHOULD BRANCH 

* 

DC A240 BSI 

• UNCONDITIONAL BSI 010 NCT BRANCH 

• 

DC A240 BSI 

• UNCONDITIONAL BSI 010 NOT STORE I CTR 

• CORRECTLY 

• 

DC A240 BSI tt LONG FORM 
DC A240 

• 0000 N/A N/A N/A N/A N/A S/8 AT TEST 

• BSI OID NOT SKIP OR SKIPPED-SHOULD BRANCH 

DC A240 BSl.C LONG FORM 

• BSI 010 NOT STORE THE I CTR CORRECTLY 

* 

DC A900 STORE 

• STORE INSTRUCTION FAILED 



DATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG6B 
4204034 



3A103420 
3A 103430 
3A 103440 
3A 103450 
3A103460 
3 A 103470 
3A103480 
3A 103490 
3A103500 
3A103510 
3A103520 
3A 10 3530 
3A1 03540 
3A 103550 
3A103560 
3A103570 
3A103580 
3A 103590 
3A103600 
3A103610 
3A103620 
3A 103430 
3A103440 
3A 103650 
3A103660 
3A 103670 ' 
3A1036B0 
3A 103690 
3A1O3T0O 
3A103710 
3A103720 
3A 103730 
3A103740 
3A 103750 
3A103760 
3A103770 
3A103780 
3A103T90 
3A1038O0 
3A 103810 
3A103B20 
3A103830 
3 A 103040 
3A 103850 
3 A 103860 
3A 103870 
3A103S80 
3A 103890 
3*103900 
3A 103910 
3A 103920 
3A 103930 
3 Al 03940 
3A 103950 
3A103960 
3A103970 
3A1039BO 
3A 103990 
3*104000 
3A104010 
3 A 104020 
3A 104030 
3A 104040 
3A 104050 
3A104060 
3A 104070 
3A104080 
3A104090 



PROG ID 03A1-1 
PAGE 3A 



1 

• 
t 
t 

t 

t 
• 

3 

9 

• 
t 



1 

c 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOX THE llbO SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE * 



ADDRESS 
OF 
B-RE& ROUTINE 

3066 02 B2 



3067 02S2 



3068 0202 



3069 0282 



306A 0200 



306B 02E2 



306C 02ED 



306D 02F8 



306E 0303 



•***•••••«•**••••*•••*•*•*****••••••••••*•*•••*•*•• 3A1041Q0 

3A 104 110 

3A104120 

A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A104130 

»***»•*****»*♦**»*»**««*»*»*»«»***»**»»»*♦*****»»»» 3A 104 1 40 



3A104150 
3A104160 
3A104170 
3A104180 
3 A 104190 
3A104200 
3A 1042 10 
3A104220 
3A104230 
3A 104240 
3A 104250 
3A104260 
3A104270 
3A104280 
3A104290 
3A104300 
3A104310 
3A104320 
3A 104330 
3A104340 
3A 104350 
3A104360 
3A104370 
3A104380 
3A 104390 
3A104400 
3A 1044 10 
3A104420 
3A 104430 
3A104440 
3 A 104450 
3A104460 
•*•••••••«••••******•*•*•*«*«••*•**•••••••*•****•* 3A104470 

3A104480 
3A 104490 
3A104500 



OC A900 XIO SENSE/PROG SHS 
FFOO N/A N/A N/A N/A N/A S/B AT TEST 
ACCUM NOT EQUAL TO FFOO— SENSE/PROG SMS 
HERE INCORRECTLY SENSED 

f 

OC A900 XIO DATA ENTRY SHS 
FFOO N/A N/A N/A N/A N/A S/B AT TEST 
ACCUM NOT EOUAL TO FFFF — DATA ENTRY SMS 
WERE INCORRECTLY READ 



DC A900 XIO SENSE /PROG SMS 
FFOO N/A N/A N/A N/A N/A S/B AT TEST 
ACCUM NOT EOUAL TO 0000— SENSE/PROG SMS 
HERE INCORRECTLY SENSED 



OC A900 XIO 
0000 N/A N/A N/A N/A NT/B AT TEST 
ACCUM NOT EOUAL TO 0000 — DATA ENTRY SMS 
MERE INCORRECTLY READ 



THE FOLLOMING ERRORS ARE HANDLED BY THE 
COMMON ERROR CONTROL ROUTINE. THE 10 NUMBER 
SHOWN FOR EACH ERROR MILL APPEAR IN BITS 
5 THRU 15 OF THE WAIT INSTRUCTION. 



OC A280 
FFFF N/A N/A 
0000 N/A N/A 
ACCUM NOT ZERO 



SRA 16 
N/A N/A 
N/A N/A 



DC A281 SRA 15 
8000 N/A N/A N/A N/A 
0001 N/A N/A N/A N/A 
ACCUM NOT EOUAL 0001 



DC A282 SRA 1 
AAAA N/A N/A N/A N/A 
5555 N/A N/A N/A N/A 
ACCUM NOT EOUAL 5555 



DC A283 SRA 1 
5555 N/A N/A N/A N/A 
2AAA N/A N/A N/A N/A 
ACCUM NOT EOUAL 2AAA 



OC 



A284 



8000 N/A N/A 

0001 N/A N/A N/A 

ACCUM NOT EOUAL 0001 



N/A S/B AFTER LD 

N/A S/B AFTER SRA 3A104510 

3A104520 

3A104530 

3A 104540 

3A 104550 

N/A S/B AFTER LO 3A104560 

N/A S/B AFTER SRA 3A104570 

3A104580 

3A104590 

3A 104600 

3A104610 

N/A S/B AFTER LD 3A104620 

N/A S/B AFTER SRA 3A104630 

3A104640 

3A 104650 

3 A 104660 

3A 104670 

N/A S/B AFTER LD 3A104680 

N/A S/B AFTER SRA 3A104690 

3A104700 

3A104710 

3A104720 

3A 104730 

3A 104740 

3A 104750 



-15 



SERIES OF SRAS- 
•TOTAL SHIFTS 
N/A N/A N/A S/B AFTER LD 

N/A N/A S/B AFTER SRA 3A104760 

3A 104770 



c 
c 
c 



o 

e 



c 

G 
O 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB66 
420403 



26AUG68 
420403A 
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PAGE 



03A1-1 

4 



o 
c 

© 

o 

o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



»«■»»»*»»•»»»»*•»•••* 
ADDRESS 
OF 
B-REG ROUTINE 



306F 0318 



3070 0322 



3071 032C 



3072 0336 



3073 0344 



3074 034E 



3075 0359 



3076 0367 



3077 0367 



3078 0380 



•»•»•**«»»*»*»*»»»»»*»»****»»»**»*»»»»»»»*«***»**»» 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

•••••••••••••••••••••••a*************************** 



OC A2C0 AN0-MEMORY»00OO 
0000 N/A N/A N/A N/A N/A S/B AFTER LO 
0000 N/A N/A N/A N/A N/A AFTER AND 
ACCUM NOT EQUAL 0000 



DC A2C4 ANO-HEMORV0FFFF 
0000 N/A N/A N/A N/A N/A 
0000 N/A N/A N/A N/A N/A 
ACCUM NOT EQUAL 0000 



OC A2C8 AND-MEMORYfOOOO 
FFFF N/A N/A N/A N/A N/A 
0000 N/A N/A N/A N/A N/A 
ACCUM NOT EOUAL 0000 



DC A2CC AND-MEMORVAFFFF 
FFFF N/A N/A N/A N/A N/A 
FFFF N/A N/A N/A N/A N/A 
ACCUM NOT EQUAL FFFF 



DC A300 OR-MEMORY • 0000 
0000 N/A N/A N/A N/A N/A AFTER LDCOR 
0000 N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EQUAL 0000 



DC A302 OR-MEMORY»FFFF 
0000 N/A N/A N/ft N/A N/A AFTER LO £ OR 
FFFF N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EQUAL FFFF 



DC A304 OR-MEMORYfFFFF 
FFFF N/A N/A N/A N/A N/A AFTER LDtOR 
FFFF N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EQUAL FFFF 



DC A340 RTE 16 
FFFF 0000 N/A N/A N/A 
0000 FFFF N/A N/A N/A 
ACCUM NOT EQUAL 0000 



OC A340 RTE 16 
0000 FFFF N/A N/A N/A 
FFFF 0000 N/A N/A N/A 
ACCUM NOT EOUAL FFFF 



DC A380 SRT 32 
8000 N/A N/A N/A N/A 
FFFF FFFF N/A N/A N/A 
ACCUM NOT EOUAL FFFF 



N/A BEFORE RTE 
N/A AFTER RTE 



N/A BEFORE RTE 
N/A AFTER RTE 



N/A BEFORE SRT 
N/A AFTER SRT 



PART NO. 2191204 
PAGE 4A 



3A1 04780 
3A 104790 
3A 104800 
3A104810 
3A104B20 
3A104830 
3A104840 
3A104850 
3A1 04860 
3A104870 
3A104880 
3A 104890 
3A104900 
3A 1049 10 
3A104920 
3 A 104930 
3A 104940 
3A104950 
3 A 104960 
3A 104970 
3A1 04980 
3A 104990 
3A105000 
3A105010 
3A105020 
3A105030 
3A105040 
3A105050 
3A105060 
3A105070 
3A105080 
3A10S090 
3A105100 
3A105110 
3A105120 
3A105130 
3A105140 
3A105150 
3A105160 
3A105170 
3A105180 
3A105190 
3A 105200 
3A105210 
3A105220 
3A 105230 
3A105240 
3A105250 
3A105260 
3A105270 
3A105280 
3A105290 
3A105300 
3A105310 
3A105320 
3A105330 
3A105340 
3A105350 
3A105360 
3A105370 
3A 105 380 
3A105390 
3A105400 
3A105410 
3A105420 
3A 105430 
3A105440 
3A105450 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG6B 
420403A 



PROG ID 
PAGE 



03A1-1 
4A 



f 
f 
c 

i 

c 

c 



IBt" MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 5 



C 

c 
c 
c 
c 
c 
c 
c 
c 

f 

c 
c 
c 
c 
i 
t 



3079 0380 



307A 0395 



3078 0395 



307C 03A8 



3070 03AB 



DC 



A380 SRT 32 £ 
8000 N/A N/A N/A N/A 
FFFF FFFF N/A N/A N/A 
ACCUH NOT EQUAL FFFF-INOICATING 



RTE 16 

N/A BEFORE: SRT 
N/A AFTER SRTtRTfc 
REG FAILED 



DC A384 SRT 32 
4000 N/A N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUN NOT EQUAL 0000 



N/A AFTER 
N/A AFTER 



LD 
SRT 



DC 



30 7E 03BC 



307F 036C 



* 
* 

* 



A384 SRT 32 C 
4000 N/A N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUN NOT EQUAL OOOO-INDICATING 



RTE 16 

N/A AFTER LO 
N/A AFTER SRT 
REG FAILED 



DC A388 SRT 15 
5555 N/A N/A N/A N/A 
0000 AAAA N/A N/A N/A 
ACCUN NOT EQUAL 0000 



N/A AFTER 
N/A AFTER 



LO 
SRT 



LD 
SRT 



••••••••••••••****•*••*•••*•••••••****• •••••••••••••••••••••••••••••••••3A105460 

ADDRESS * 3A105470 

OF • 3A105480 

8-REG ROUTINE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A105490 

•*•»•••»•**••••»»•••*»***•***»***»*•*****»***»**«***•»•**»»***•••*•»*»** 3A 1 05 500 

• 3A10551O 

3A105S20 
3A105530 
3A105540 
3A 105550 
3A105560 
3A105570 
3A105580 
3A105590 
3A105600 
3A 105610 
3A105620 
3A105630 
3A105640 
3A105650 
3A105660 
3A 105670 
3A105680 
3A 105690 
3A105700 
3A105710 
3A105720 
3A105730 
3A105740 
3A105750 
3A 105760 
3A1O5770 
3A105780 
3A105790 
3A105800 
3A105810 
3A105820 
3A 105830 
3A105840 
3A1O5850 
3A 105860 
3A105870 
3A1058B0 
3 A 105890 
3A105900 
3A 105910 
3A105920 
3A 105930 
3A105940 
3A105950 
3A105960 
3A105970 
3A105980 
3A105990 
3A106000 
3A106010 
3A106020 
3A106030 
3A106040 
3A106050 
3 A 106060 
3A106070 
3A106080 
3A106090 
3A106100 
3A106110 
3A106120 
3A106130 



DC 
5555 N/A 

OCOO AAAA 
AAAA 0000 



A388 
N/A 
N/A 
N/A 



SRT 15 

N/A N/A 
N/A N/A 
N/A N/A 



ACCUH NOT EQUAL AAAA-IN01CATING 



RTE 16 
N/A AFTER 
N/A AFTER 
N/A AFTER RTE 
Q REG FAILEO 



15 
16 



DC 



A38C 



SERIES OF SRTS-30 - 
•TOTAL SHIFTS 
5555 N/A N/A N/A N/A N/A AFTER 
0000 0001 N/A N/A N/A N/A AFTER 
ACCUN NOT EQUAL 0000 



LO 
SRT3S 



DC 



A38C 



SERIES OF SRTS-30 
•TOTAL SHIFTS £ 
•RTE 16 



5555 

0000 
0001 



N/A 

0001 

0000 



N/A 
N/A 
N/A 



N/A 
N/A 

N/A 



N/A 
N/A 

N/A 



3080 03DC 



3081 03DC 



ACCUN NOT EQUAL 0001-INDICATING 



OC A3C0 RTE 15 
5555 AAAA N/A N/A N/A 
5554 AAAB N/A N/A N/A 
ACCUN NOT EQUAL 5554 - RTE 15 



DC 



5555 
5554 
AAAB 



AAAA 
AAAB 
5554 



A3C0 
N/A 
N/A 

N/A 



RTE 15 

N/A N/A 
N/A N/A 
N/A N/A 



ACCUN NOT EQUAL AAAB-INDICATING 



N/A AFTER LD 
N/A AFTER SRT8S 
N/A AFTER RTE 16 
Q REG FAILEO 



N/A AFTER L08S 
N/A AFTER RTE 15 
TO A FAILED 



RTE 16 

N/A AFTER LOSS 
N/A AFTER RTE 15 
N/A AFTER RTE 16 
Q REG FAILED 



DATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 






c 

G 
C 


G 
C 




o" 



G 
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C 



IBM MAINTENANCE DIAGNOSTIC PROGRAN FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 
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PAGE 5A 



o 
o 



03A1-1 
5 



OATE 
EC NO. 



#»»*«»»»***»*»»»*»»•« 


••••••••••••••••••••••••••••••••«*«***»»**»»***»»*»»3A106140 


J 


AOORESS < 










3A106150 




OF < 










3 A 106 160 


J 


8-REG ROUTINE 


* A-REG O-REG XR-1 XR-2 XR-3 


STATUS 




3A106170 




••**•*•••••••*••••••< 


►**•••••••••••••••• ••••••»»»»»»»*»»»»»»«»»»»»»»*«»»»3A106 180 




3082 03F3 


DC A3C4 SERIES 


OF RTES-31 




3A106190 


f 




► *TOTAL 


SHIFTS 






3A106200 


> 




» 0000 8000 N/A N/A N/A 


N/A 


AFTER LO 




3A106210 






• 0001 0000 N/A N/A N/A 


N/A 


AFTER RTtaS 


3A 106220 


i 




* ACCUN NOT EQUAL 0001 






' 


3A 1062 30 
3A106240 
3A 106250 


1 


3083 03F3 


DC A3C4 SERIES 


OF RTES-31 




3A106260 






« »TOTAL 


SHIFTS 






3A 106270 






» •FOLLOWED BY 


RTE 16 




3A106280 


1 




• 0000 6000 N/A N/A N/A 


N/A 


AFTER LD 




3A 106290 






* 0001 0000 N/A N/A N/A 


N/A 


AFTER RTE3S 


3 A 106 300 






• 0000 0001 N/A N/A N/A 


N/A 


AFTER RTE 


16 


3A106310 


4 




* ACCUN NOT EQUAL OOOO-INDICATING Q REG FAILED 




3A106320 














3A106330 














3A 106340 


1 


3084 0412 


OC A400 SLA 16 








3 A 106350 






* FFFF FFFF N/A N/A N/A 


N/A 


AFTER LD 




3A1 06360 






• 0000 FFFF N/A N/A N/A 


N/A 


AFTER SLA 




3A 106370 


1 




» ACCUN NOT EOUAL 0000 








3A106380 






* " 3 








3A106390 
3A106400 




3085 0412 


DC A400 SLA 16 








3A106410 






• FFFF FFFF N/A N/A N/A 


OFF 


AFTER LD 




3A106420 






• 0000 FFFF N/A N/A N/A 


C 


AFTER SLA 




3A106430 






• CARRY NOT SET 








3A106440 
3A 106450 
3A 106460 




3086 0412 


OC A400 SLA 16 


t RTE 


16 




3A 106470 






• FFFF FFFF N/A N/A N/A 


N/A 


AFTER LO 




3A106480 






• 0000 FFFF N/A N/A N/A 


N/A 


AFTER SLA 




3A 106490 






• FFFF 0000 N/A N/A N/A 


N/A 


AFTER RTE 


16 


3A106500 






• ACCUN NOT EQUAL FFFF-1ND1CATING Q REG FAILED 




3A 106510 














3A106520 














3A 106530 




3087 0433 


OC A408 SLA 16 








3A 106540 






• 0001 0000 N/A N/A N/A 


N/A 


AFTER LO 




3A106550 






• 0000 0000 N/A N/A N/A 


N/A 


AFTERSLA 




3A106560 






• ACCUN NOT EOUAL 0000 








3A 106570 
3A 106580 
3 A 106590 




3088 0433 


OC A408 SLA 16 








3 A 106600 






• 0001 0000 N/A N/A N/A 


C 


AFTER LO 




3A 10*610 






• 0000 0000 N/A N/A N/A 


c 


AFTER SLA 




3A106620 






* CARRY NOT SET 








3A 106630 
3A 106640 
3A1066S0 




3089 0433 


OC A408 SLA 16 


6 RTE 


16 




3A106660 






• 0001 0000 N/A N/A N/A 


N/A 


AFTER LD 




3A 106670 






• 0000 0000 N/A N/A N/A 


N/A 


AFTER SLA 




3A1 06680 






• 0000 0000 N/A N/A N/A 


N/A 


AFTER RTE 


16 


3A 106690 






• ACCUN NOT EQUAL OOOO-INDICATING Q REG FAILED 




3A 106700 














3A106710 














3A106720 




306A 0453 


OC 8400 SLA 1 








3A 106730 






• AAAA 0000 N/A N/A N/A 


N/A 


AFTER LO 




3A106740 ' 






• 5554 0000 N/A N/A N/A 


N/A 


AFTER SLA 




3A106750 






• ACCUN NOT EQUAL 5554 








3A106760 
3A106770 
3A106780 
3A 106790 
3A106800 
3A106810 




02JAN66 01NAY66 


15N0V66 15FEB6S 26AUG68 








PROG 10 03A1-1 • 


415490 415490C 


419643 420403 420403A 
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«*««»**»***••*•***•*•••••*••••• ••••••••3A106820 

3A106830 
3*106840 
3*106850 



ADDRESS * 
OF • 
B-REC ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS „..».„.» 



308B 0453 



30BC 0453 



DC B400 

• AAAA 0000 N/A 

• 5554 0000 N/A 

• CARRY NOT SET 



DC 



AAAA 
5554 

0000 



0000 
0000 
5554 



B400 
N/A 
N/A 
N/A 



SLA 1 
N/A N/A 
N/A N/A 



SLA 1 t 
N/A N/A 
N/A N/A 
N/A N/A 



C 
C 



RTE 16 
N/A 
N/A 

N/A AFTER RTE 



( 
C 

c 



30SD 0471 



308E 0471 



30BF 0471 



* ACCUM NOT EQUAL 0000-IND1CATING REG FAILED 

* 

DC B406 SLA 1 

• 5555 0000 N/A N/A N/A N/A AFTER LD 

* AAAA 0000 N/A N/A N/A N/A AFTER SLA 

• ACCUM NOT EQUAL AAAA 



DC 0406 SLA 1 

• 5555 0000 N/A N/A N/A 

• AAAA OCOO N/A N/A N/A 

• CARRY SET-SHOULD BE CLEAR 



C AFTER 
OFF AFTER 



LD 
SLA 



3090 0490 



3091 0490 



OC B406 SLA 1 t RTE 16 

• 5555 0000 N/A N/A N/A N/A AFTER 

• AAAA 0000 N/A N/A N/A N/A AFTER 

• 0000 AAAA N/A N/A N/A N/A AFTER 

• ACCUM NOT EQUAL 0000- INDICATING Q REG FAILED 
* 

* 

DC B40A SERIES OF SLAS-16 

• *TOTAL SHIFTS 

• 0001 0000 N/A N/A N/A N/A AFTER 

• 0000 0000 N/A N/A N/A N/A AFTER 

• ACCUM NOT EQUAL 0000 

DC B40A SERIES OF SLAS-16 

• »TOTAL SHIFTS 



LD 

SLA 

RTE 



SLA 
SLABS 



0001 0000 
0000 0000 
CARRY NOT SET 



N/A 
N/A 



N/A 
N/A 



N/A 
N/A 



AFTER 
AFTER 



SLA 
SLABS 



3092 0490 



N/A 
N/A 
N/A 
0000- 



3093 04BD 



DC B40A 

• 0001 0000 

• 0000 0000 

• 0000 0000 

• ACC NOT EQUAL 
• 

* 

OC A440 SLT 32 

• 0000 0001 N/A N/A N/A 

• 0000 0000 N/A N/A N/A 

• ACCUH NOT EQUAL 0000 
• 



• 



SERIES OF SLAS-16 

•TOTAL SHIFTS C 

•RTE 16 
N/A N/A N/A AFTER SLA 
N/A N/A N/A AFTER SU8S 
N/A N/A N/A AFTER RTE 16 
INDICATING Q REG FAILED 



N/A 
N/A 



AFTER 
AFTER 



LD 
SLT 



32 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB6B 
420403 



26AUC68 
420403A 



3A106870 

3A106880 

3A106890 

3A106900 

3A106910 

3A106920 

3A 106930 

3A106940 

3A106950 

3A106960 

3A106970 

3A106980 

3A106990 

3A107000 

3A107010 

3A 107020 

3A 107030 

3A107040 

3A 107050 

3A107060 

3A107070 

3A 107080 

3A 107090 

3A107100 

3A10711O 

3A107120 

3A1O7130 

3A107140 

3A107150 

3 A 107160 

3A107170 

3A107180 

3*107190 

3A107200 

3A107210 

3A107ZZ0 

3A 1072 30 

3A107240 

3A107250 

3A107260 

3A107270 

3A1072B0 

3A107290 

3A107300 

3A107310 

3A107320 

3A107330 

3 A 107 340 

3*107350 

3A10T360 

3A 107370 

3A107380 

3A107390 

3A107400 

3*107410 

3A107420 

3A107430 

3*107440 

3A107450 

3A107460 

3A107470 

3A107480 

3*107490 
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»*•*•*•»*••••*•*•*••*••••••••••••••*••• ••••♦••••••••••••••••••••••••••••3A107500 

ADDRESS • 3A107510 

OF • 3A107520 

B-REG ROUTINE * A-REG ft-REG XR-1 XR-2 XR-3 STATUS 3A107530 

„*»»»»***»»*»*»*»»«»»»»»»»»»»*»»«»»»»»»»»**»»**»**********»*»****»»***»3A107540 



3094 04B0 



3095 04BD 



03A1-1 

6 



3096 040 A 



3097 04DA 



309B 04DA 



OC A440 SLT 32 

• 0000 0001 N/A N/A N/A 

• 0000 0000 N/A N/A N/A 

• CARRY NOT SET 

• 

OC A440 

• 0000 0001 

• 0000 0000 

• 0000 0000 

• ACCUM NOT EQUAL OOOO-INDICATING 
• 

• 

■> OC A444 SLT 16 . 

• 0000 FFFF N/A N/A N/A 

• FFFF 0000 N/A N/A N/A 

• ACCUM NOT EQUAL FFFF 

• 

DC A444 SLT 16 

• 0000 FFFF N/A N/A N/A 

• FFFF 0000 N/A N/A N/A 

• CARRY ON SHOULD NOT BE 



N/A AFTER LO 
C AFTER SLT 



32 



SLT 32 t RTE 16 

AFTER LD 
AFTER SLT 32 
AFTER RTE 16 
REG FAILED 



N/A AFTER 10 
N/A AFTER SLT 



N/A AFTER 
OFF AFTER 



LD 
SLT 



OC 
0000 FFFF 
FFFF 0000 
0000 FFFF 



N/A 
N/A 
N/A 



SLT 16 
N/A N/A 
N/A N/A 
N/A N/A 



RTE 16 
N/A AFTER 
N/A AFTER 
N/A AFTER RTE 



LO 
SLT 



t 







3099 04F9 



309A 04F9 



309B 04F9 



309C 0519 



N/A AFTER LO 
N/A AFTER SLT 



* 

• WUWV » ■ » » ***** ,-,, r- .-. — --.— -- 

• ACCUM NOT EQUAL OOOO-INDICATING Q REG FAILED 

• 

DC A44A SLT 15 

• 0000 5555 N/A N/A N/A 

• 2AAA 8000 N/A N/A N/A 

• ACCUM NOT EQUAL 2AAA 
• 
• 

DC A44A SLT 15 

• 0000 5555 N/A N/A N/A 

• 2AAA 8000 N/A N/A N/A 

• CARRY SET-SHOULD NOT BE 
• 
• 

DC A44A SLT 15 

• 0000 5555 N/A N/A N/A 

• 2AAA 8000 N/A N/A N/A 

• 8000 2AAA N/A N/A N/A 



16 



16 



16 
16 



15 



N/A AFTER LD 
OFF AFTER SLT 15 



RTE 16 

N/A AFTER LD 

N/A AFTER SLT 

„„ ww ... „ N/A AFTER RTE 

• ACCUM NOT EQUAL 8000-1NDICATING Q REG FAILED 



15 
16 



3090 0519 



DC 8440 SERIES OF SLTS-32 

• "TOTAL SHIFTS 

• 0000 0001 N/A N/A N/A N/A AFTER LO 

• 0000 0000 N/A N/A N/A N/A AFTER SLT8S 

• ACCUM NOT EQUAL 0000 
• 

• 

DC B440 SERIES OF SLTS-32 

• "TOTAL SHIFTS 

• 0000 0001 N/A N/A N/A N/A AFTER LO 

• 0000 0000 N/A N/A N/A C AFTER SLT3S 

• CARRY NOT ON 



DATE 


02JAN66 


01MAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 


415490C 


419643 


420403 


420403* 



3A107550 

3A107560 

3A107570 

3A107580 

3A107590 

3*107600 

3A107610 

3A107620 

3*107630 

3A107640 

3A 107650 

3A107660 

3A 107670 

3*107680 

3*107690 

3*107700 

3A 107 7 10 

3*107720 

3A 107730 

3A107740 

3*107750 

3A107760 

3*107770 

3*107780 

3*107790 

3*107800 

3*107810 

3A 107820 

3*107830 

3A107840 

3A107850 

3A1 07860 

3A 107870 

3A107880 

3A107890 

3A107900 

3*107910 

3A107920 

3*107930 

3*107940 

3A107950 

3A1 07960 

3A107970 

3A107980 

3A107990 

3A108000 

3A108010 

3*108020 

3A108030 

3*108040 

3* 108050 

3*108060 

3A108070 

3A108080 

3A 108090 

3*108100 

3A10B110 

3*108120 

3*108130 

3*108140 

3A108150 

3*108160 

3A 106 170 
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PACE 7 



AOORESS 

OF 

B-REG ROUTINE 

309E 0S19 



309F 0542 



30 AO 054E 



30A1 055 F 



30A2 056B 



30A3 056B 



30A4 0568 



30A5 0568 



»****»*»*»»»***»»*»»»*»**»»*»****»******»**«»*»****3A108180 

3A108190 

3A108200 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A10B210 

• ********«*»**«****************«*>******»«**********3A108220 



DC B440 SERIES OF SLTS-32 
•TOTAL SHIFTS S 
*RTE 16 



0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUM NOT EQUAL OOOO-INDICATING 



N/A AFTER LO 
N/A AFTER SLT3S 
N/A AFTER RTE 16 
REG FAILED 



STO 
N/A N/A 



N/A 



DC A480 
0000 N/A N/A 
STORING 0000 INTO A STORAGE LOCATION 
CONTAINING FFFF 010 NOT RETURN 0000 WHEN 
RELOADED IN THE ACCUM 



DC A482 STO 
FFFF N/A N/A N/A N/A N/A 
STORING FFFF INTO A STORAGE LOCATION 
CONTAINING 0000 OID NOT RETURN FFFF MHEN 
RELOAOED IN THE ACCUM 



DC 
N/A N/A 
N/A N/A 

N/A N/A 



A4C0 
N/A 
N/A 

N/A 



STS 
N/A N/A 
N/A N/A 
N/A N/A 



ON AFTER LDS 3 
OFF AFTER LDS 
OFF AFTER STS 



LDS FAILED TO RESET CARRY AND UVERFLON OR 
STS FAILED TO STORE INDICATORS. 



DC A4C2 
N/A N/A N/A 
N/A N/A N/A 
STS DIO NOT CLEAR 



STS 
N/A N/A 
N/A N/A 
CARRY 



CCO AFTER LDS 
OFF AFTER STS 



DC A4C2 
INITIALLY ACC HAS CORE 

SYMBOLIC LABEL A4C2 
ACC DISTROYEO AFTER STS 



STS CK ACC 
LOCATION OF 



OC A4C2 STS 
N/A N/A N/A N/A N/A 
N/A N/A N/A N/A N/A 
STS DID NOT CLEAR OVERFLOW 



CCO AFTER LDS 
OFF AFTER STS 



A4C2 



STS 



DC 
N/A 
0003 

STS OF 0003 INTO A STORAGE LOCATION 
CONTAINING 0000 010 NOT RETURN 0003 WHEN 
RELOAOED IN THE ACCUM 



BEFORE LD 
AFTER LD 





30A6 0590 


OC A4C8 


STS 






► N/A N/A N/A 


N/A N/A 






► N/A N/A N/A 


N/A N/A 






► N/A N/A N/A 


N/A N/A 






► 0002 N/A N/A 


N/A N/A 






« STS FAILED TO STORE OR LDS 2 






* OVERFLOW. 




OATE 


02JAN66 01MAY66 


15N0V66 15FEB68 


26AUG68 


EC NO. 


415490 415490C 


419643 420403 


420403A 



CCO AFTER LOS 3 
C AFTER LDS 2 
OFF AFTER STS 
OFF AFTER LD 
FAILED TO RESET 



3A108230 
3A108240 
3A1082S0 
3A108260 
3A108270 
3A108280 
3A108290 
3A108300 
3A108310 
3A108320 
3A10B330 
3A1 08340 
3A10S350 
3A1C3360 
3A 10 8370 
3A1D3380 
3A 101390 
3A1 03400 
3AJ 08410 
3A108420 
3A108430 
3A108440 
3A108450 
3A1 08460 
3 A 108470 
3A1084B0 
3 A 108490 
3AIDJ500 
3A1Q3510 
3A1S4520 
3A103530 
3A1S8540 
3A108550 
3A108560 
3A108570 
3A108580 
3A I J 6590 
3A» 98600 
3A108610 
3A108620 
3A 10 8630 
3A 108640 
3A108650 
3A10B660 
3A108670 
3A10B680 
3A108690 
3A10B700 
3A108710 
3A 108720 
3A 108730 
3A108740 
3A 108750 
3A10B760 
3A108770 
3A108780 
3A108790 
3A108800 
3A108810 
3A108820 
3A108830 
3A108B40 
3A108B50 
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c 
c 
c 
c 
o 
c 
c 
c 
c 



0| 



c 





o 
o 
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OF 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 



PART NO. 2191204 
PAGE 7A 



B-REC ROUTINE 
30A7 0590 



30A8 05A7 



30 A9 05 AT 



30AA 05C4 



r 



AB 05CF 



30AC 050A 



30A0 050 A 



30Ac 05F1 



30AF 05FC 



3080 05FC 



30B1 0619 



30B2 0619 



DC A4CB STS 
N/A N/A N/A N/A N/A CCO AFTER LOS 3 
N/A N/A N/A N/A N/A C AFTER LDS 
N/A N/A N/A N/A N/A OFF AFTER STS 
STS DID NOT CLEAR CARRY OR OVERFLOW IF OVERFLOW 
HAD NOT BEEN RESET BY LOS 2 



OC 
N/A N/A 
N/A N/A 
N/A N/A 



A4CC 
N/A 
N/A 
N/A 



STS 
N/A N/A 
N/A N/A 
N/A N/A 



C£0 AFTER LDS 
AFTER LOS 1 
OFF AFTER STS 



LDS 1 FAILED. IF ACCUMULATOR IS OTHER THAN /0001 



OC 
N/A N/A 
N/A N/A 
N/A N/A 



A4CC 

N/A 
N/A 
N/A 



STS 
N/A N/A 

N/A N/A 
N/A N/A 



CCO AFTER LOS 
AFTER LDS 1 
OFF AFTER STS 



STS FAILED TO RESET INDICATORS. 



OC A500 BSCtOCEZC 
8001 N/A N/A N/A N/A CCO 
BSC fKIPPED-SHOULD NOT HAVE 



OC A502 BSC.-OCC 
0000 N/A N/A N/A N/A CCO 
BSC SK1PPED-SH0ULD NOT HAVE 



DC A504 BSCtO-E 
8000 N/A N/A N/A N/A CCO 
BSC FAILED TO SKIP 



OC A504 BSC.O 

8000 N/A N/A N/A N/A C 

BSC FAILED TO CLEAR OVERFLOW 

DC A508 BSC, CI Z 

0001 N/A N/A N/A N/A OFF 
BSC FAILED TO SKIP 



DC A50A BSCtOCfc LONG FORM 
8001 N/A N/A N/A N/A CCO 
BSC OID NOT BRANCH - SHOULD HAVE 



DC A50A BSC.COCE LONG FORM 
8001 N/A N/A N/A N/A CCO 
BSC SK1PPE0-SH0UL0 BRANCH 



DC ASOC BSC.-Z LONG FORM 
0004 N/A N/A N/A N/A CCO 
BSC DID NOT BRANCH - SHOULD HAVE 



DC ASOC BSCt-Z LONG FORM 
• 0004 N/A N/A N/A N/A CCO 



OATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



•3A108860 
3A 10 8870 
3A108880 
3A108890 

•3A108900 
3A108910 
3A1089Z0 
3A 10 8930 
3A108940 
3A108950 
3A108960 
3A108970 
3A108980 
3A108990 
3A109000 
3A109010 
3A109020 
3A 109030 
3A109040 
3A109050 
3A109060 
3A109070 
3A109080 
3A109090 
3A109100 
3A 109 110 
3A109120 
3A109130 
3A109140 
3A109150 
3*109160 
3A109170 
3A109180 
3A109190 
3A109200 
3A 1092 10 
3A109220 
3A109230 
3A109240 
3A109250 
-3A109260 
3A 1092 70 
3A109280 
3A 109290 
3A109300 
3A109310 
3A109320 
3A109330 
3A109340 
3A 109350 
3A109360 
3A 109 3 70 
3A 109 380 
3A109390 
3A109400 
3A109410 
3A109420 
3A 109430 
3A109440 
3A109450 
3A109460 
3A109470 
3A109480 
3A109490 
3A109500 
3A109510 
3A109520 
3A109530 
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* BSC SKIPPED-SHOULD BRANCH 3A109540 

•.^♦•••••••••••••••••••••••••••••••••••••••••••••••••••****************3A109550 

«% AOORESS • 
OF * 
B-REG ROUTINE * A-REG Q-RE6 XR-1 XR-2 XR-3 



3A109560 

3A109570 

STATUS 3A109580 

••^••••^••••••••••••••••••••••♦••••••••••••••••••••••******»*********3A109590 



30B3 062D 



3064 0620 



30BS 0641 



30B6 0641 



30B7 0660 



306B 0660 



30B9 0660 



* 

DC A50E BSC.tEOCZ LONG 

• *FORN 

• B001 N/A N/A N/A N/A CtO 

• BSC BRANCHED-SHOULD MOT 

• 

DC A50E BSC.tEOCZ LONG 

• "FORM 

• 8001 N/A N/A N/A N/A CEO 

• BSC SKIPPEO-SHOULD NOT 
• 

OC 6500 BSC.t 

• 0001 N/A N/A N/A N/A CtO 

• BSC ON PLUS CLEARED THE OVERFLOW F-F 



« 










• 




DC 




B500 


• 


000 




N/A 


N/A 


* 


BSC 


FAILED 


TO SKIP 



BSCtC 
N/A N/A 



N/A 



OC 



A540 



* 
* 



8001 N/A N/A 
BSI DID NOT BRANCH 



BSItECOtZ LONG 
•FORM 
N/A N/A LtO 
- SHOULD HAVE 



OC A540 BSI.ECOtZ LONG 
•FORM 
8001 N/A N/A N/A N/A CtO 
BSI SKIPPED-SHOULD BRANCH 



OC 

8001 N/A 
8001 N/A 
BSI DIO NOT 



30BA 0681 



30BB 0681 



30BC 0696 



30B0 0696 



OC 
0002 N/A 
BSI DID NOT 



A540 BSItECOtZ LONG 
•FORM 
N/A N/A N/A CtO AFTER LOS 
N/A N/A N/A C AFTER BSI 

CLEAR OVcF.FLOU 



A544 BSItZ- LONG FORM 

N/A N/A N/A N/A 
BRANCH - SHOULD HAVE 



DC A 544 BSI.Z- LONG FORM 
0002 N/A N/A N/A N/A N/A 
BSI SKIPPED-SHOULD BRANCH 



DC A546 BSIfZ LONG FORM 

• 0000 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 

* 

DC A546 BSItZ LONG FORM 

• 0000 N/A N/A N/A N/A N/A 

• BSI SKIPPED-SHOULD NOT U 

• 



DATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG6B 
420403A 



3A 109600 

3A 109610 

3A109620 

3A 109630 

3A109640 

3A 109650 

3A109660 

3A 109670 

3A109680 

3 A 109690 

JA 109 700 

3A1U9710 

3A109720 

3A 109730 

3A109740 

3A109750 

3A109760 

3A 109770 

3A109780 

3A109790 

3A109800 

3A109810 

3A109820 

3A 109 8 30 

3A109840 

3A109B50 

3A109860 

3A109B70 

3A109880 

3A109890 

3A109900 

3A109910 

3A109920 

3A109930 

3A109940 

3A109950 

3A109960 

3A 109970 

3A109980 

3A 109990 

3A1 10000 

3A110010 

3A110020 

3A 11 0030 

3A1 10040 

3A110050 

3A1 10060 

3A1 10070 

3A1 10080 

3A 110090 

3A1 10100 

3A1 10110 

3 Al 10120 

3A110130 

3A110140 

3A1 10150 

3A1 10160 

3A110170 

3A1 10180 

3A1 10190 

3A1 10200 

3A 11 02 10 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM 
CPU FUNCTION TEST 



J» 1 



THE 1130 SYSTEM 



•••••••*•*••*••••*••••••••••••••••••••••••••••••••••••••••••***••*•***•• 

ADDRESS • 
OF • 
B-REG ROUTINE • A-REG O-REG XR-1 XR-2 XR-3 STATUS 

*••«**«*••••••••••••••••••••••••••••••*•*••••••*••*••****•*••••*•*•••••• 



30BE O 06A9 



30BF 06A9 



30C0 06BB 



30C1 06BB 



30C2 06CD 



30C3 06CD 



30C4 06DF 



30C5 060F 



30C6 06F1 



30C7 06F1 



30C8 0704 



30C9 0704 



30CA 0717 



DC A548 BSI.- LONG FORM 

• 8001 N/A N/A N/A N/A N/A 
•' BSI SKIPPED-SHOULD NOT 

• 
* 

DC A548 BSI.- LONG FORM 

• 8001 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
* 

DC A54A BSI.t LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI SKIPPED-SHOULD NOT 
• 

• 

DC A54A BSI.t LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
• 

• 

DC A54C BSI.E LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI SKIPPEO-SHOULD NOT 
* 

• 

OC A54C BSI.E LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
• 

• 

DC A54E BSI.C LONG FORM 

• N/A N/A N/A N/A N/A C 

• BSI SKIPPED-SHOULD NOT 
• 

• . 

OC A54E BSI.C LONG FORM 

• N/A N/A N/A N/A N/A C 

• BSI BRANCHED SHOULD NOT 
• 

• 

DC A54F BSI.O LONG FORM 

• N/A N/A N/A N/A N/A 

• BSI SKIPPEO-SHOULD NOT 
• 

• 

DC A54F BSI.O LONG FORM 

• N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
• 

• 

DC A580 LOD 

• 0000 0000 N/A N/A N/A N/A 

• ACCUM NOT EQUAL 0000 
• 

• 

DC A580 LDO t RTE 16 

• 0000 0000 N/A N/A N/A N/A AFTER LDD 

• 0000 0000 N/A N/A N/A N/A AFTER RTE 16 

• ACCUM NOT EQUAL OOOO-INPICATING Q REG FAILED 
• 

DC A584 LOO 

• FFFF FFFF N/A N/A N/A N/A 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB66 
420403 



26AUG68 
420403A 



PART NO. 2191204 
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3A1 10220 
3A1 10230 
3A1 10240 
3A1 10250 
3A1 10260 
3A1 10270 
3A1 10280 
3A 11 0290 
3 Al 10300 
3A110310 
3A110320 
3A 110330 
3A1 10340 
3A 11 0350 
3A1 10360 
3A 110370 
3A110380 
3A110390 
3A1 10400 
3A110410 
3A1 10420 
3A1 10430 
3A1 10440 
3A 110450 
3 Al 10460 
3A110470 
3A1 10480 
3A 110490 
3 Al 10500 
3A110510 
3 Al 10520 
3A11053O 
3A1 10540 
3A110550 
3A1 10560 
3A110570 
3A1 10580 
3A 11 0590 
3A1 10600 
3A11061O 
3A1 10620 
3A 110630 
3A1 10660 
3A 11 0650 
3A1 10660 
3A110670 
3A1106M 
3A 11 0490 
3A1 10700 
3A11071O 
3 Al 10720 
3A1 10730 
3A 110760 
3A1 10750 
3A1 10760 
3A110770 
3A1 10780 
3A 110790 
3A1 10800 
3A110810 
3A1 10820 
3A1 10830 
3A 110840 
3A 110850 
3A1 10660 
3A 110670 
3A1 10860 
3A 110890 
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* ACCUM NOT EQUAL FFFF 3A1 10900 

»»*»*»»»»*♦»*»»**»»***»*»****»»»****«*»»**»***»****»**»****»»**»**«»* ***3A 11 09 10 

AOORESS * 3A110920 

OF • 3A110930 

B-REG ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A110940 

»»»»»»»»»»•»•»#»**»»»♦*****»»**«*«*»*****»*»»»»»»***»»*»»»»»*»*****»*»»* 3 A 110950 



30CB 0717 



30CC 072 B 



30CD 072B 



30CE 0730 



30CF 0730 



30D0 0751 



3001 0751 



30D2 076A 



30D3 076A 



DC A584 LDD £ RTE 16 
FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER RTE 
ACCUM NOT EQUAL FFFF-INOICATING 'Q REG FAILED 



DC A588 LDD ODD ADDRESS 
0000 0000 N/A N/A N/A N/A 
ACCUM NOT EQUAL 0000 



16 



DC 



A588 



LOD-ODD ADDRESS 
* 6 RTE 16 



0000 0000 N/A N/A N/A 
0000 0000 N.'A N/A N/A 
ACCUM NOT EQUAL OOOO-INDICATING 



DC 
0000 0000 



A5C0 
N/A 



STD 

N/A N/A 



N/A AFTER LDD 
N/A AFTER RTE 
Q REG FAILED 



N/A 



16 



USING STD-ACCUM NOT STORED IN LOCATION EA 



DC A5C0 STD 
0000 0000 N/A N/A N/A N/A 
USING STO-Q REG NOT STOREO IN LOCATION EAG1 



OC A5C4 
FFFF FFFF N/A 
USING STD-ACCUM NOT 



DC A5C4 
FFFF FFFF N/A 
USING STD-Q REG NOT 



STD 

N/A N/A N/A 
STORED IN LOCATION EA 



STD 
N/A N/A N/A 

STORED IN LOCATION EAtl 



STD ODD ADRESS 
N/A N/A N/A 



DC A5C8 

* 0000 0000 N/A 

• STD USING ODD ADDRESS-ACCUM NOT STORED IN EA 

DC A5C8 STD-ODD ADDRESS 

* 0000 0000 N/A N/A N/A N/A 

• STD USING ODD ADDRESS-ACCUM NOT STOREO 



N/A 



N/A 



N/A 





3004 078F 




• IN ( 

• 
• 

• N/A 

• TAG 

• 


AC1 

DC 

N/A 
REG BIT 


A600 LDX 1 

N/A N/A N/A 
7 MILL NOT SET 




30D5 0798 




• 

* N/A 

• TAG 

* 


DC 

N/A 
REG BIT 


A602 LDX 2 

N/A N/A N/A 
6 HILL NOT SET 




30D6 07A1 




• 

OC 

• N/A N/A 

• INDEX REG 1 


A604 LOX 1 

0000 N/A N/A 
NOT EQUAL 0000 


DATE 
EC NO. 


02JAN66 
* 15490 


01MAY66 
415490C 


15N0V66 15FEB68 26AUG6B 
419643 420403 420403A 



3A1 10960 

3A 11 09 70 

3A 110980 

3A110990 

3A1 11000 

3A111010 

3A111020 

3A111030 

3A111040 

3A111050 

3A111060 

3A 11 1070 

3A111080 

3A 11 1090 

3A111100 

3A111110 

3A111120 

3A111130 

3A111140 

3A111150 

3A111160 

3A111170 

3A111180 

3A111190 

3A111200 

3A111210 

3A111220 

3A111230 

3A111240 

3A 11 1250 

3A111260 

3A111270 

3A111280 

3A111290 

3A111300 

3A111310 

3A111320 

3A1 11330 

3A111340 

3A111350 

3A111360 

3A111370 

3A111380 

3A111390 

3A1 11400 

3A111410 

3A1 11420 

3A111430 

3A1 11440 

3A 11 1450 

3A111460 

3A 11 1470 

3A111480 

3A 11 1490 

3A111500 

3A111510 

3A111520 

3A111530 

3A111540 

3A111550 

3A1 11560 

3A1 11570 
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ADDRESS • 
OF » 
B-REG ROUTINE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

»»»»»**»**»**»*»»»»»**»»*»*»»»*»»**»**»»»*»*»♦»**»»»»»***»»«»»»»*» 



30D7 07AD 



30D8 07BA 



30D9 07C7 



300A 07D4 



30DB 07E1 



30DC 07EE 



30DD 07FC 



30DE OB 10 



30DF 0827 



30E0 0834 



30E1 0841 



30E2 084E 



30E3 085C 



DC A606 LOX 2 

• N/A N/A N/A 0000 N/A N/A 

• INDEX REG 2 NOT EQUAL 0000 

DC A608 LDX 3 

• N/A N/A N/A N/A 0000 N/A 

• INDEX REG 3 NOT EQUAL 0000 

OC A60A LOX 1 

• N/A N/A FFFF N/A N/A N/A 

• INOEX REG 1 NOT EQUAL FFFF 

* 

DC A60C LOX 2 
» N/A N/A N/A FFFF N/A N/A 

• INDEX REG 2 NOT EQUAL FFFF 
« 

* 

DC A6C-E LDX 3 

• N/A N/A N/A N/A FFFF N/A 

• INOEX REG 3 NOT EQUAL FFFF 

DC B600 LDX 1 LONG FORM 

• N/A N/A 0001 N/A N/A N/A 

• INDEX REG 1 NOT EQUAL 0001 

DC B602 LOX 3 INDIRECT 

• N/A N/A N/A N/A FFFF N/A 

• INDEX REG 3 NOT EQUAL FFFF 

» 

DC A640 STX 

• N/A N/A N/A N/A N/A N/A 

• STX WITH NO TAG 01D NOT STORE I-CTR CORRECT 

DC A642 STX 1 

• N/A N/A 0000 N/A N/A N/A 

• INOEX REG 1 WAS NOT STORED BY STX 

« 

DC A644 STX 2 

• N/A K/A N/A 0000 N/A N/A 

• INDEX REG 2 NOT STORED BY STX 

* 

DC A646 STX 3 

• N/A N/A N/A N/A 0000 N/A 

• INDEX REG 3 NOT STORED BY STX 

• 

DC A648 STX 1 

• N/A N/A FFFF N/A N/A N/A 

• INDEX REG 1 NOT STORED BY STX 
* 

» 

DC A64A STX 2 
» N/A N/A N/A FFFF N/A N/A 



3AU1580 
••••••3A111590 

3A1 11600 
3A1 11610 
3A111620 
•**»»*3A111630 
3A1 11640 
3A 11 1650 
3A1 11660 
3A 11 1670 
3A1 11680 
3A 11 1690 
3AU1700 
3A111710 
3A111720 
3A 11 1730 
3A111740 
3A111750 
3A1 11760 
3A111770 
3A111780 
3A111790 
3A111800 
3A111810 
3A111820 
3A111830 
3A111840 
3A1 11850 
3A1 11860 
3A1 11870 
3A111880 
3A111890 
3A1 11900 
3A111910 
3A1 11920 
3A1 11930 
3A1 11940 
3A111950 
3A111960 
3A111970 
3A1 11980 
3 A 11 1990 
3A1 12000 
3A1 12010 
3A1 12020 
3A1 12030 
3A1 12040 
3A112050 
3A1 12060 
3A1 12070 
3A1 12080 
3A 112090 
3A112100 
3A112110 
3A1 12120 
3AU2130 
3A112140 
3A112150 
3A112160 
3A112170 
3A112180 
3A112190 
3A1 12200 
3A 1122 10 
3A1 12220 
3A112230 
3A1 12240 
3A112250 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



2oAUG68 
420403A 
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• INDEX REG 2 NOT STORED BY STX 3A112260 





ADDRESS 
OF 


• 








3A1 12280 


- 




* 








3A 112290 






B-REG ROUTINE 


* 


A-REG O-REG XR-X 


XR-2 XR-3 


STATUS 


3A1 12300 






•******************»**»*»***»**»*«»****»»*«»»*»»»»»*»»****»»»*»*»»»**»**3Ai{2310 








• 








3A112320 






30E4 086A 




DC A64C 


STX 3 




3A112330 








• 


N/A N/A N/A 


K/A FFFF 


N/A 


3A112340 








• 


INDEX REG 3 NOT STORED BY STX 




3AU2350 








* 








3A112360 








* 








3A112370 






30E5 08DC 




DC A680 


AOO 




3A112380 








* 


FFFF N/A N/A 


N/A N/A 


C AFTER LOCLDS 


3A112390 








* 


FFFF N/A N/A 


N/A N/A 


C AFTER A 


3A1 12400 








• 


ADD FFFF £ 0000 TURNED ON OVERFLOW 


3A112410 








• 








3 Al 12420 








• 








3A 112430 






30E6 06DC 




DC A680 


ADD 




3A1 12440 








• 


FFFF N/A N/A 


N/A N/A 


N/A AFTER LD 


3A1 12450 








• 


FFFF N/A N/A 


N/A N/A 


N/A AFTER A 


3A1 12460 








* 


ADD FFFF £ 0000 FAILED TO EQUAL 


FFFF 


3A 11 2470 








• 








3A1 12480 








• 








3A 11 2490 






30E7 0BF1 




DC A684 


ADD 




3A1 12500 








» 


FFFF N/A N/A 


N/A N/A 


OFF AFTER LD£LDS 


3A112510 








• 


0000 N/A N/A 


N/A N/A 


C AFTER A 


3 Al 12520 








* 


ADD FFFF £ 0001 DID 


NOT TURN ON 


CARRY 


3A112530 








• 








3A1 12540 








* 








3A112550 






30E8 08F1 




DC A684 


ADD 




3A1 12560 








* 


FFFF N/A N/A 


N/A N/A 


N/A AFTER LOCLDS 


3A 112570 








• 


0000 N/A N/A 


N/A N/A 


N/A AFTER A 


3A1 12580 








* 


ADD FFFF £ 0001 DID 


NOT EQUAL 0000 


3A112590 








* 








3A1 12600 








. * 








3A112610 






30E9 0904 




DC A688 


ADD 




3A1 12620 








* 


FFFF N/A N/A 


N/A N/A 


OFF AFTER LDELDS 


3A112630 








* 


FFFF N/A N/A 


N/A N/A 


C AFTER A 


3A1 12640 








• 


ADD FFFF G FFFF OID 


NOT TURN ON 


CARRY 


3A112650 








• 








3A1 12660 








• 








3A112670 






30EA 0904 




DC A688 


AOD 




3A1 12680 








• 


FFFF N/A N/A 


N/A N/A 


N/A AFTER LDGLDS 


3A 11 2690 








• 


FFFF N/A N/A 


N/A N/A 


N/A AFTER A 


3A1 12700 








• 


ADD FFFF E FFFF DID 


NOT EQUAL FFFE 


3A112710 








« 








3A1 12720 








• 








3A112730 






30EB o cms 




OC A68C 


AOD 




3A1 12740 








* 


4000 N/A N/A 


N/A N/A 


OFF AFTER LD 


3A112750 








* 


8000 N/A N/A 




AFTER A 


3A1 12760 








• 


ADO 4000 £ 4000 DID 


NOT TURN ON 


OVERFLOW 


3A112770 








• 








3A1 12780 








* 








3A1 12790 






30EC 0918 




DC A68C 


ADD 




3A1 12800 








• 


4000 N/A N/A 


N/A N/A 


N/A 


3A 1128 10 








* 


ADD 4000 £ 4000 OID 


NOT EQUAL 8000 


3A1 12820 








• 








3A112830 








* 








3A1 12840 






30ED 092C 




OC B680 


ADO 




3A112850 








• 


8000 N/A N/A 


N/A N/A 


N/A AFTER LO 


3A1 12860 








* 


0000 N/A N/A 


N/A N/A 


N/A AFTER A 


3A112870 








* 


ADD 8000 £ 8000 NOT 


EQUAL 0000 




3A1 12880 








* 








3A1 12890 








• 








3A1 12900 






30EE 092C 




OC 86 80 


ADD 




3A112910 








* 


8000 N/A N/A 


N/A N/A 


OFF AFTER LO 


3A1 12920 








• 


0000 N/A 




C£0 AFTER A 


3A112930 




DATE 


02JAN66 01MAY66 


1SN0V66 15FEB68 26AUG68 




PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 420403 420403A 
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* ADD 8000 £ 8000 DID NOT TURN ON OVERFLOW 3A1 12940 
M»»»«.»«»«»,«»»„„ M „„,„ M „„, W ,„ MMM , MMMMMMM( 

ADDRFSS • J * 4 "" u 

OF » 3A1 12960 

B-REG ROUTINE » A-REG Q-REG XR-1 XR-2 XR-3 STATUS liWllll 







• 


3A1 13000 






30EF 092C 


DC B680 AOD 

* 8000 N/A N/A N/A N/A OFF. AFTER LO 

* 0000 N/A N/A N/A N/A C£0 AFTER A 

* ADD 8000 £ 8000 DID NOT TURN ON CARRY 

• 


3A1 13010 
3A1 13020 
3A 11 3030 
3A1 13040 
3A1 13050 
3A1 13060 






30F0 0954 


• 

DC A6C0 LOX 1 

* N/A N/A FFF4 N/A N/A N/A 

* INDEX REG 1 WAS NOT LOADED EQUAL FFF4 

* 


3A1 13070 
3A1 13080 
3 A 113090 
3A1 13100 
3A113110 






30F1 0954 


DC A6C0 LD 1 

* N/A N/A FFF4 N/A N/A N/A 
» A LOAD IN5TR INDEXED BY INDEX REG 1 

* LOADED THE WRONG LOCATION 

• 


3A1 13120 
3A113130 
3A1 13140 
3A113150 
3A1 13160 
3A1 13170 






30F2 096C 


* 

DC A6C2 > LOX 2 

* N/A N/A N/A 0004 N/A N/A 

* INOEX REG 2 NOT LOADED EQUAL 0004 

• 
» 


3A1 13180 
3A113190 
3A1 13200 
3A 11 32 10 
3A1 13220 
3A113230 






30F3 096C 


DC A6C2 LO 2 

* N/A N/A N/A 0004 N/A N/A 

* A LOAD INSTR INDEXED BY INDEX RIG 2 

* LOADED THE WRONG LOCATION 

* 
• 


3A1 13240 
3A 11 3250 
3A1 13260 
3A1 13270 
3A1 13260 
3A1 13290 






30F4 0984 


DC A6C4 LOX 3 
» N/A N/A N/A N/A 0000 N/A 
* INDEX REG 3 NOT LOADED EQUAL 0000 

* 
• 


3A1 13300 
3*113310 
3AI 13320 
3.113330 
34113340 






30F5 0984 


DC A6C4 LO 3 

* N/A N/A N/A N/A 0000 N/A 

* A LOAD INSTR INDEXED BY INDEX REG 3 

* LOAOED THE WRONG LOCATION 

• 
• 


3A 113350 
2*113360 
3* 113370 
Ml 13380 
3A 113390 
3A113400 






30F6 099B 


DC A6C6 LOX 3 

* N/A N/A N/A N/A 0001 N/A 

• INDEX REG 3 NOT EQUAL 0001 

• 
• 


JA113410 
3A1 13420 
3A113430 
3A1 13440 
3A 11 3450 






30F7 099 B 


DC A6C6 LD 3 LONG FORM 

• N/A N/A N/A N/A 0001 N/A 

• A LONG FORM LOAD INDEXED BY INDEX REG 3 

• LOADED THE WRONG LOCATION 

* 

• 


3A1 13460 
3A 11 3470 
3A1 13480 
3A1 13490 
3A1 13500 
3A113510 






30F8 09B3 


DC A6C8 LOX 3 
» N/A N/A N/A N/A FFFF N/A 
• INDEX REG 3 NOT EQUAL FFFF 

* 
• 


3A1 13520 
3A 11 3530 
3A1 13540 
3A113550 
3A1 13560 






30F9 09B3 


DC A6C8 LD 3 INDIRECT 

* N/A N/A N/A N/A FFFF N/A 

* AN INDIRECT LOAD INDEXED BY INDEX REG 3 

* LOADED THE WRONG LOCATION 

* 


3A 11 3570 
3A1 13580 
3A1 13590 
3A1 13600 
3A113610 




DATE 


02JAN66 01MAY66 


15N0V66 15FEB68 26AUG6B 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 420403 420403A 
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• 3A113620 

«»»»»*«»»»»»«»«»*»*»»»*»»»»»»*»**»»»*»»»»**»»**»*»***********»**»*»**»**3A113630 

ADDRESS • 3A113640 

0F * 3A 11 3650 

•-REG ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A1 13660 

»«»»»•»#»**»**»***»«»»»*«»*»»**»•**»*»*»***♦»»*»»*»******»»»************ 3A1 13670 



30FA 0A38 



30FB 0A38 



30FC 0A4F 



30F0 0A4F 



30FE 0A66 



30FF 0A66 



DC A700 
0000 N/A N/A 
FFFF N/A N/A 
SUB 0001 FORM 0000 



SUB 
N/A N/A N/A AFTER 
N/A N/A N/A AFTER 
DID NOT EQUAL FFFF 



DC A700 
0000 N/A N/A 
FFFF N/A N/A 
SUB 0001 FROM 0000 



SUB 

N/A N/A OFF AFTER 

N/A N/A C AFTER 

010 NOT SET CARRY 



* 

* 
* 
• 

DC A704 

• 0000 N/A N/A 

• 0001 N/A N/A 

• SUB FFFF FROM 0000 DID not EQUAL 0001 
» ■ ■ 

• 

DC A 704 SUB 

• 0000 N/A N/A N/A N/A OFF AFTER 

• 0001 N/A N/A N/A N/A C AFTER 

• SUB FFFF FROM 0000 DID NOT SET CARRY 
• 



SUB 
N/A N/A 
N/A N/A 



N/A AFTER 
N/A AFTER 



LD 
S 



LD 
S 



LO 
S 



LO 

S 



DC A708 
8000 N/A N/A 
7FFF N/A N/A 
SUB 0001 FROM 8000 



SUB 
N/A N/A N/A AFTER LD 
N/A N/A N/A AFTER S 
DID NOT EQUAL 7FFF 



DC A708 SUB 

* 8000 N/A N/A N/A N/A OFF AFTER LD 

* 0001 N/A N/A N/A N/A AFTER CARRY 

* AND OVERFLOW CONDITION HAD BEEN LOADED INTO 

* ACCUMULATOR AS A NUMBER 

* SUB 00C1 FROM 8000 010 NOT TURN ON OVERFLOW 



3100 0A7D 



3101 0A7D 



3102 0A70 



3103 0AA8 



DC A70C SUB 
0000 N/A N/A N/A N/A N/A AFTER 
8000 N/A N/A N/A N/A N/A AFTER 
SUB BOOO FROM 0000 010 NOT EQUAL 8000 



DC 
0000 N/A 
8000 N/A 



A70C 
N/A 
N/A 



SUB 
N/A N/A 
N/A N/A 



OFF AFTER 
C60 AFTER 



LO 

S 



LD 
S 



SUB 8000 FROM 0000 DID NOT TURN ON OVERFLOW 



DC A70C SUB 
0000 N/A N/A N/A N/A OFF AFTER LD 
8000 N/A N/A N/A N/A CSO AFTER S 
SUB 8000 FROM 0000 DID NOT TURN ON CARRY 



DC A740 AD-0000 0000 
FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER AO 
ACCUM NOT EQUAL FFFF 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A1 13680 
3A 11 3690 
3A1 13700 
3A113710 
3A113720 ' 
3A113730 
3A1 13740 
3A1 13750 
3A 113760 
3A 11 3770 
3A11378Q 
3 A 11 3790 
3A1 13800 
3A113810 
3A1 13820 
3A113830 
3A1 13840 
3A1 13850 
3A1 13860 
3 A 11 3870 
3A1138B0 
3A113890 
3 Al 13900 
3A 113910 
3A1 13920 
3A113930 
3A113940 
3A113950 
3A1 13960 
3A113970 
3A1 13980 
3A 11 3990 
3 Al 14000 
3A114010 
3 Al 14020 
3A1 14030 
3A1 14040 
3A114050 
3A1 14060 
3A 114070 
3A1 14080 
3 A 114090 
3A1 14100 
3A114110 
3A1 14120 
3A114130 
3A1 14140 
3A114150 
3A1 14160 
3A114170 
3A1 14180 
3A114190 
3A 114200 
3A 1142 10 
3A1 14220 
3A 114230 
3A1 14240 
3A 114250 
3A1 14260 
3A 114270 
3A1 14280 
3AU4290 
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» 
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OF » 
B-REG ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 



PART NO. 2191204 
PAGE 11A 



3104 0AA8 



3105 0AA8 



3106 0AA8 



3107 0AD7 



3108 0A07 



3109 0AD7 



310A 0AD7 



310B 0B03 



310C 0B03 



310D OB03 



DC A740 AD-0000 0000 

FFFF FFFF N/A N/A N/A N/A AFTER ADD 

FFFF FFFF N/A N/A N/A N/A AFTER RTE 
Q REG NOT EQUAL FFFF 



DC A740 
FFFF FFFF N/A 
FFFF FFFF N/A 



AD-0000 0000 
N/A N/A OFF AFTER LDD 
N/A N/A OFF AFTER RTE 



OVERFLOW SET SHOULD NOT BE 



DC A740 AD-0000 0000 
FFFF FFFF N/A N/A N/A 
FFFF FFFF N/A N/A N/A 
CARRY SET-SHOULD NOT BE 



OFF AFTER LOD 
OFF AFTER RTE 



DC A746 AD-FFFF FFFF 
0000 0001 N/A N/A N/A N/A AFTER LOD 
0000 0000 N/A N/A N/A N/A AFTER AO 
OVERFLOW SET- SHOULD NOT BE 



* 
* 

« 
» 

* 



DC A746 AD-FFFF 
0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
Q REG NOT EQUAL 0000 



DC A746 AD-FFFF 
0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
CARRY NOT SET- SHOULD BE 



DC A746 AO-FFFF 
0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
CARRY NOT SET-SHOULD BE 



FFFF 
N/A AFTER LDD 
N/A AFTER AO 



FFFF 
OFF AFTER LUD 
C AFTER AD 



FFFF 
OFF AFTER LOO 
C AFTER AD 



DC A74C AD-FFFF 
FFFF FFFF N/A N/A N/A 
FFFF FFFE N/A N/A N/A 
ACCUM NOT EQUAL FFFF 



OC A74C AD-FFFF 
FFFF FFFF N/A N/A N/A 
FFFF FFFE N/A N/A N/A 
Q REG NOT EQUAL FFFE 



DC A74C AD-FFFF 
FFFF FFFF N/A N/A N/A 
FFFF FFFE N/A N/A N/A 
OVERFLOW ON-SHOULO NOT BE 



FFFF 
N/A AFTER LDD 
N/A AFTER AD 



FFFF 
N/A AFTER LDD 
N/A AFTER AO 



FFFF 
OFF AFTER LOD 
C AFTER AD 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A114300 
•••3A114310 
3A1 14320 
3A 114330 
3A1 14340 
•••3A114350 
3A1 14360 
3A 114370 
3A1 14360 
3 A 114390 
3A1 14400 
3A114410 
3A1 14420 
3A1 14430 
3A1 14440 
3A 114450 
3A1 14460 
3A114470 
3A1 14460 
3A 114490 
3A 114500 
3A114510 
3A1 14520 
3A1 14530 
3A1 14540 
3A114550 
3A1 14560 
3A1 14570 
3A1 14560 
3 A 114590 
3A1 14600 
3A114610 
3A1 14620 
3A114630 
3A1 14640 
3A114650 
3A1 14660 
3A114670 
3 Al 14680 
3A114690 
3A 114700 
3A114710 
3A1 14720 
3A114730 
3A1 14740 
3A1 14750 
3A1 147*0 
3A 114770 
3A1 14760 
3A114790 
3A1 14800 
3A 1146 10 
3A1 14620 
3A 114630 
3A1 14640 
3A 114650 
3A1 14860 
3A114870 
3A1 14860 
3A114690 
3A1 14900 
3A114910 
3A1 14920 
3A 1149 30 
3A1 14940 
3A114950 
3A1 149*0 
3A 114970 
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AOORESS 
OF 
B-REG ROUTINE 

••••••••••••••a* 

310E 0B03 



310F 0B20 



3110 0B20 



3111 0B20 



3112 0B2D 



3113 0B57 



3114 OB57 



3115 0B79 



311* 0B79 



3117 0B79 



3A1 14980 

14990 

3A1 15000 

. „.,,. ~ «,-. 3A115010 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A115020 

*****«»*»»»»»**»»*»**»**»»**»***»*»»»«*»**»***»»*»»»»***3A1 15030 

fir *■»#.*- «rt r-w-r- wf-w _.- 



* 



oc 



A74C A0-FFFF FFFF 
FFFF FFFF N/A N/A N/A OFF 
FFFF FFFE N/A N/A N/A C 
CARRY NOT 0N-SH0UL0 BE 



AFTER LOO 
AFTER AD 



DC B742 AD-FFFF FFFF 
FFFF 7FFF N/A N/A N/A N/A AFTER LDD 
FFFF 7FFE N/A N/A N/A N/A AFTER AD 
ACCUM NOT EQUAL FFFF 



OC B742 AD-FFFF FFFF 
FFFF 7FFF N/A N/A N/A N/A 
FFFF 7FFE N/A N/A N/A N/A 
REG NOT EQUAL 7FFE 



DC B742 AD-FFFF FFFF 

* FFFF 7PFF N/A N/A N/A OFF 

* FFFF 7FFE N/A N/A N/A C 

* OVERFLOW SET-SHOULD NOT BE 

DC 8742 AD-FFFF FFFF 

* FFFF 7FFF N/A N/A N/A OFF 

* FFFF 7FFE N/A N/A N/A C 

* CARRY NOT SET-SHOULD BE 



AFTER 
AFTER 



AFTER 
AFTER 



LDD 
AO 



LDD 
AD 



AFTER LDD 
AFTER AO 



* 

* 
* 

* 

* 
* 



DC B747 AD-0001 ODD LOC 

0000 0001 N/A N/A N/A N/A AFTER 

0001 0002 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0001 



OC B747 AD-0001 OOO LOC 

0000 0001 N/A N/A N/A N/A AFTER 

0001 0002 N/A N/A N/A N/A AFTER 
Q REG NOT EQUAL 0002 



DC A7B0 SD-0000 0001 
0000 0000 N/A N/A N/A N/A AFTER 
FFFF FFFF N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL FFFF 



DC A7B0 SD-0000 0001 
0000 0000 N/A N/m N/A N/A AFTER 
FFFF FFFF N/A N/A N/A N/A AFTER 
Q REG NOT EQUAL FFFF 



DC A780 SD-0000 0001 
0000 0000 N/A N/A N/A OFF AFTER 
FFFF FFFF N/A N/A N/A C AFTER 
OVERFLOW ON-SHOULD NOT BE 



LOO 

AD 



LDD 
AD 



LDD 
SD 



LDD 
SO 



LDD 
SD 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419*43 



15FEB68 
420403 



26AUG68 
420403A 



3A1 15040 
3A115050 
3A115060 
3A 11 5070 
3A1 15080 
3A 11 5090 
3A115100 
3A115110 
3A115120 
3A115130 
3A115140 
3A115150 
3A115160 
3AU5170 
3A115180 
3A115190 
3A1 15200 
3A115210 
3A1 15220 
3A115230 
3A1 15240 
3A115250 
3*115260 
3A11S270 
3A1 15280 
3A 11 5290 
3A1 15300 
3A115310 
3A115320 
3A115330 
3A1 15340 
3A115350 
3A115360 
3A 11 5370 
3A1 15380 
3A 11 5390 
3A115400 
3A115410 
3A1 15420 
3A 11 5430 
3A1 15440 
3A1 15450 
3A1 15460 
3A115470 
3A1 15480 
3A 11 5490 
3A1 15500 
3A115510 
3A1 15520 
3A115530 
3A1 15540 
3A 11 5550 
3A1 155*0 
3A115570 
3A1 15580 
3A115590 
3A1 15*00 
3AU5610 
3A1 15*20 
3A 11 5*30 
3A1 15640 
3 A 11 5*50 
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B-REG 

3118 0B79 



3A1 15*60 
ADDRESS » ••••♦••*»*******»*»»**»»»»»«»3A115670 

0F # 3A1 15680 

ROUTINE . A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A115700 



03A1-1 
12 



• 

o 

e 

e 
o 
• 

© 



c 



3119 0BA3 



311A 0BA3 



311B 0BB8 



3 11C 0BB8 



3110 OBCC 



311E OBCC 



3UF OBEC 



3120 OBEC 



3121 0C01 



* 
» 

* 
» 

* 



OC A780 
0000 0000 N/A N/A 
FFFF FFFr N/A N/A 
CARRY NOT ON-SHOULD BE 



SD-0000 0001 



DC A786 
0000 0000 N/A 
0000 0001 N/A 
ACCUM NOT EQUAL TO 



N/A 

N/A 

0000 



SD 



N/A 
N/A 



-FFFF 
N/A 
N/A 



OFF 

C 



FFFF 
N/A 

N/A 



AFTER 
AFTER 



AFTER 
AFTER 



DC 
0000 0000 
0000 0001 



A786 
N/A 

N/A 



SD-FFFF 
N/A N/A 
N/A N/A 



REG NOT EQUAL 0001 



DC A78A SD- 
0000 COOO N/A N/A 
0000 C001 N/A N/A 
ACCUM NOT EQUAL 0000 



•FFFF 
N/A 
N/A 



FFFF 
N/A AFTER 
N/A AFTER 



FFFF 
N/A AFTER 
N/A AFTER 



OC A78A SD-FFFF 
0000 COOO N/A N/A N/A 
0000 C001 N/A N/A N/A 
Q REG NOT EQUAL C001 



FFFF 
N/A 
N/A 



AFTER 
AFTER 



DC A78E 
0000 0000 N/A N/A 
0000 0001 N/A N/A 
ACCUM NOT EQUAL 0000 



SD-FFFF ODD LOC 



N/A 
N/A 



N/A AFTER 
N/A AFTER 



LDD 
SD 



LDD 
SO 



LDD 
SD 



LDD 
SD 



LDD 
SO 



LDD, 
SO 



OC A76E SD- 
0000 0000 N/A N/A 
0000 0001 N/A N/A 
REG NOT EQUAL 0001 



■FFFF 

N/A 

N/A 



ODD LOC 
N/A AFTER LDD 
N/A AFTER SO 



OC A7C0 MULT-2AAA 
5555 N/A N/A N/A N/A N/A AFTER 
0E38 9C72 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0E38 



OC A7C0 MULT-2AAA 
5555 N/A N/A N/A N/A N/A 
0E38 9C72 N/A N/A N/A N/A 
Q REG NOT EQUAL 9C72 



AFTER 
AFTER 



DC A7C4 MULT-FFFF 
FFFF N/A N/A N/A N/A N/A AFTER 
0000 0001 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0000 



LO 

M 



LO 
M 



LO 

M 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AU668 
420403A 



3A1 15720 

3A115730 

3A115740 

3A 11 5750 

3A1 15760 

3A 11 5770 

3A1 15780 

3A 11 5790 

3 Al 15800 

3A115810 

3A1 15820 

3A115830 

3A1 15840 

3A1158S0 

3A1 15860 

3AU5B70 

3A11S880 

3A 115890 

3A1 15500 

3A115910 

3A1 15920 

3A115930 

3A1 15940 

3A115950 

3 Al 15960 

3A115970 

3A1 15980 

3A 115990 

3A1 16000 

3A116010 

3A1 16020 

3A116030 

3A1 16040 

3A116050 

3A1 16060 

3A1 1*070 

3A1 1*080 

3 A 11 6090 

3A1 1*100 

3*11*110 

3A1 16120 

3*11*130 

3A11*140 

3A11*150 

3*11*1*0 

3A116170 

3A1 161*0 

3*11*190 

3*11*200 , 

3A 11*2 10 

3A1 1*220 

3*11*230 

3*11*240 

3*11*250 

3A1 1*2*0 

3A 11*270 

3*11*280 

3A 116290 

3A1 16300 

3A116310 

3A1 16320 

3A116330 



PROG 10 
PA6E 



03*1-1 
12* 
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* 3 Al 16340 

•»»»»»»*»»»»»»»»»»«»***»***»»#»»»**»*»*«***»**»»*»»»»******»»»*»»»*«»»»*3A 116350 

AOORESS * 3A1 16360 

OF * 3A1163T0 

B-REG ROUTINE * A-REG ©-REG XR-l XR-2 XR-3 STATUS 3A1 16360 

»«*»»»*»*»»»**•»•«**»»»»«*♦»»»*»***»**•»»***»**»*»»»»»»***♦****»****«•«* 3A 116390 



c 

c 





t 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



AOORESS • 
OF * 
6-RE6 ROUTINE » A-REG O-REG XR-l XR-2 XR-3 STATUS 





3122 OC01 


OC A7C4 MULT-FFFF 




3A1 16400 










• FFFF N/A N/A N/A N/A 


N/A AFTER LO 


3A 116410 





• 






• 0000 0001 N/A N/A N/A 


N/A AFTER M 


3A1 16420 






• REG NOT EQUAL 0001 




3A 116430 










* 




3A1 16440 










• 




3A 116450 





• 




3123 0C15 


OC A7C8 NULT-FFFF 




3A 116460 










* 0000 N/A N/A N/A N/A 


N/A AFTER LD 


3A 116470 


o 








• 0000 0000 N/A N/A N/A 


N/A AFTER M 


3A1 16480 


• 






• ACCUM NOT EQUAL 0000 




3A 11 6490 










• 




3A1 16500 










* 




3A116510 





• 




3124 0C15 


OC A7CB MULT-FFFf 




3 Al 16520 










• 0000 N/A N/A N/A N/A 


N/A AFTER LD 


3A 116530 


> 








• 0000 0000 N/A N/A N/A 


N/A AFTER M 


3A1 16540 


t 






• REG NOT EQUAL 0000 




3A 11 6550 










« 




3A1 16560 










* 




3A 11 6570 





• 




3125 0C2B 


DC A7CC MULT-0000 


3A1 16580 


• 








* FFFF N/A N/A N/A N/A 


N/A AFTER LO 


3A 11 6590 










• 0000 0000 N/A N/A N/A 


N/A AFTER M 


3A1 16600 





• 






• ACCUM NOT EQUAL 0000 




3A 116610 










* 




3 Al 16620 










* 




3A 11 6630 





• 




3126 0C2S 


DC A7CC MULT-0000 


3A1 16640 










• FFFF N/A N/A N/A N/A 


N/A AFTER LD 


3A1 16650 










• 0000 0000 N/A N/A N/A 


N/A AFTER M 


3A1 16660 





• 






* REG NOT EQUAL 0000 




3 A 11 6670 










* 




3A1 16680 










* 




3A 116690 


9 


• 




3127 0C43 


DC A800 0V0-80O0 




3A1 16700 










* 4000 7FFF N/A N/A N/A 


N/A AFTER LDO 


3A116710 


• 








• 8000 7FFF N/A N/A N/A 


N/A AFTER D 


3A116720 


• 






* ACCUM NOT EQUAL 8000 




3A 116730 










• 




3A116740 


• 








• 




3 A 116750 


• 




3128 0C43 


DC A800 OVD-8000 




3A116760 










* 4000 7FFF N/A N/A N/A 


N/A AFTER LDD 


3A 11 6770 


• 


• 






* 8000 7FFF N/A N/A N/A 


N/A AFTER 


3A1 16780 






* REG NOT EQUAL 7FFF 




3A 116790 










* 




3A1 16800 


• 








• 




3A116810 


. • 




3129 0C43 


OC A800 OVD-8000 




3A1 16820 










• 4000 7FFF N/A N/A N/A 


OFF AFTER LDD 


3A 116830 


• 








• 8000 7FFF N/A N/A N/A 


N/A AFTER D 


3A 116840 


• 






* OVERFLOW ON-SHOULO NOT BE 




3A 116850 




f 






• 




3A1 16860 


• 








* 




3A1 16870 


• 




312A 0C43 


OC A800 OVD-8000 




3 Al 16880 










• 4000 7FFF N/A N/A N/A 


OFF AFTER LDO 


3A 116890 


• 








• 8000 7FFF N/A N/A N/A 


N/A AFTER D 


3A1 16900 


• 






* CARRY ON-SHOULD NOT BE 




3A 1169 10 










• 




3A1 16920 










* 




3A116930 


• 


• 




312B 0C71 


DC A806 OVD-5555 




3A1 16940 










* 1C71 BBE3 N/A N/A N/A 


N/A AFTER LDD 


3 A 116950 


• 








• 5555 2DAA N/A N/A N/A 


N/A AFTER D 


3A1 16960 


• 






* ACCUM NOT EOUAL 5555 




3A116970 










« 




3A1 16980 










• 




3A 116990 


• 


• 






• 




3A1 17000 










* 




3A117010 


# 


• 


DATE 


02JAN66 01MAY66 


15N0V66 15FEB68 26AUG6B 




PROG ID 03A1-1 © 


• 


EC NO. 


415490 415490C 


419643 420403 420403A 




PAGE 


13 

• 


• 



312C 0C71 



3120 0C71 



312E 0C71 



312F 0C9A 



3130 0CA9 



3131 9CB4 



3132 OCBF 



3133 ©CCA 



3134 ©CDS 



3135 0056 



DC A806 DVD-5555 
1C71 BBE3 N/A N/A N/A 
5555 2DAA N/A N/A N/A 
REG NOT EQUAL 20AA 



OC A806 DVD-5555 
1C71 B3E3 N/A N/A N/A 
5555 2DAA N/A N/A N/A 
OVERFLOW ON-SHOULO NOT BE 



OC A806 DVD-5555 
1C71 BBE3 N/A N/A N/A 
5555 20AA N/A N/A N/A 
CARRY ON-SHOULO NOT BE 



N/A 
N/A 



AFTER 
AFTER 



OFF AFTER 
N/A AFTER 



OFF AFTER 
N/A AFTER 



DC 

• 0000 0001 

• N/A N/A 



A80C 
N/A 

N/A 



N/A 
N/A 



OVO-0000 

N/A 
N/A 



OFF 




AFTER 
AFTER 



LDD 




LDD 
D 



LDD 
D 



LOO 




• OVERFLOW NOT ON- SHOULD BE OR O-REG NOT 1 

DC A80E 0VD-O001 

• 4000 0000 N/A N/A N/A OFF AFTER LDD 

• N/A N/A N/A N/A N/A AFTER D 

• OVERFLOW NOT ON-SHOULO BE 

• 



DC 8800 DVO-4000 

AOOO OOCO N/A N/A N/A 
N/A N/A N/A N/A N/A 

OVERFLOW NOT OM-SHOULO BE 



OC B802 OVD-8000 

COOO 0000 N/A N/A N/A 
N/A N/A N/A N/A N/A 

OVERFLOW OFF—SHOULD BE ON 



DC 8894 DVO-0001 

0000 FFFF N/A N/A N/A 
N/A N/A N/A N/A N/A 

OVERFLOW OFF— SHOULD BE ON 



DC BB06 DVD-0001 

FFFF 7FFF N/A N/A N/A 
N/A N/A N/A N/A N/A 

OVERFLOW OFF— SHOULD BE ON 



OFF AFTER LDD 
AFTER D 



OFF AFTER LOO 
AFTER 



OFF AFTER LDD 
AFTER 



OFF AFTER LDD 
AFTER 



3136 0064 



OC 

N/A N/A 
N/A N/A 
INDEX REG i 
BY MINUS 1 



DC 



A840 MOX 1 

0000 N/A N/A N/A AFTER LDX 
FFFF N/A N/A N/A AFTER MDX 1 

NOT EQUAL FFFF WHEN MODIFIED 



A 842 



MOX LONG FORM 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
41S490C 



1SN0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PART NO. 2191204 
PAGE 13A 



3A1 17020 
3A 11 7030 
3A1 17040 
3A 11 7050 
3A1 17060 
3A 11 7070 
3A1 17080 
3 A 11 7090 
3A117100 
3A117110 
3A117120 
3AU7130 
3A117140 
3A117150 
3A1 17160 
3A117170 
3A117180 
3A117190 
3A1 17200 
3A117210 , 
3A1 17220 
3A117230 
3A117240 
3A117250 
3A117260 
3A117270 
3A1 17280 
3A 117290 
3A1 17300 
3A117310 
3A 117320 
3A117330 
3A117340 
3A 11 7350 
3A1 17360 
3A 11 7370 
3A1 173*0 
JA 117 390 
3A1 17400 
3A117410 
3A117420 
3 A 11 7430 
3A1 17440 
3A1 17450 
3A1 17460 
3 A 11 7470 
3A117480 
3A 11 7490 
3A 117500 
3*117510 
3A1 17520 
3A117530 
3A1 17540 
3A 11 7550 
3A1 17560 
3A117570 
3A1 17580 
3A 11 7590 
3A1 17600 
3A1 17610 
3A1 17620 
3A 11 7630 
3A1 17640 
3A 11 7650 
3A117660 
3A 117670 
3A1 176*0 
3 A 11 7690 



PROG 10 
PAGE 



03A1-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PACE 14 



AOORESS 
OP 
B-REG ROUTINE 

•••••••a************ 



3137 0079 



3138 ODSB 



3139 0092 



313A 0D9C 



313B ODCF 



313C O OOCF 



3130 0DF6 



313E 00F6 



313F 0E1E 



3140 0E1E 



OC 
N/A N/A 
N/A N/A 
INDEX REG 2 



A844 HOX 2 LONG FORM 

N/A FFFE N/A N/A AFTER LOX 
N/A FFFF N/A N/A AFTER NDX 

NOT EQUAL TO FFFF AFTER NDX CI 



TO INOEX REG 2 



OC 
N/A N/A 
N/A N/A 
MDX DID NOT 
KENT TO 0000 



A846 
N/A 
N/A 

CAUSE 



MDX 3 

N/A FFFF N/A AFTER 
N/A 0000 N/A AFTER 
SKIP WHEN INOEX REG 3 



DC AS48 
N/A N/A FFFF 
N/A N/A 0003 

MDX 010 NOT CAUSE A 



MOX 1 
N/A N/A 

N/A N/A 
SKIP WHEN 



N/A AFTER 
N/A AFTER 
THE SIGN 



CHANGED ON INOEX REG 1 



DC A649 MDX 1 INDIRECT 
N/A N/A FFFE N/A N/A N/A AFTER 
N/A N/A FFFF N/A N/A N/A AFTER 
INDIRECT MDX OF INOEX REG 1 BY CI FAILED 



LOX 

MOX 



LOX 
MOX 



LOX 
LDX 



AOD CI TO MEMORY FAILED 3A1 17700 

3A1 17720 

3A117730 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A1 17740 

;**«»*»****»*********»*******»«**»»»»»»»«»***«***»«*3A} 17750 

3A1 17760 
3A 11 7770 
3A1 17780 
3A117790 

2 3A1 17800 
3A117810 
3A1 17820 
3A117830 
3A1 17840 
3A1 17850 
3A1 17860 

2 3A117870 
3A1 17880 
3A 11 7890 
3A1 17900 
3A117910 
3A1 17920 
3A117930 

I 3A1 17940 
3A1 17950 
3A1 17960 
3A 11 7970 
3A1 17980 
3A 11 7990 
3A1 18000 

II 3A118010 
3A1 18020 
3A 11 8030 
3A116040 
3A 11 8050 
3A1 18060 
3A 11 SO 70 
3A1 18080 
3A 11 8090 
3A118100 
3A118110 
3A1 U120 
3A118130 
3A1 18140 
3A118150 
3A1 18160 
3A118170 
3A118180 
3A118190 
3A1 18200 
3A 1182 10 
3A1 18220 
3A118230 
3A11B240 
3A 11 8250 
3A1 18260 
3A118270 
3A1 18280 
3A 11 8290 
3A1 18300 
3A 11 8310 
3A118320 
3A 11 8330 
3A1 18340 
3A 11 8350 
3A1 18360 
3A 11 8370 



OC A880 SLCA-XR 
0000 N/A 0010 N/A N/A 
0000 N/A 0000 N/A N/A 
ACCUM NOT EQUAL 0000 



N/A AFTER LOX 
N/A AFTER SLCA 



OC 
0000 N/A 
0000 N/A 
INOEX REG 1 



A880 SLCA-XR 
0010 N/A N/A 
0000 N/A N/A 

NOT EQUAL 0000 



N/A AFTER 
N/A AFTER 



LOX 
SLAC 



DC A884 SLCA-XR 
0001 N/A FFOO N/A N/A 
8000 N/A FFC1 N/A N/A 
ACCUM NOT EQUAL 8000 



N/A AFTER LOX 
N/A AFTER ASCL 



DC 
0001 N/A 
8000 N/A 
INDEX REG 1 



OC 
8000 N/A 
8000 N/A 



A884 SLCA-XR 
FFOO N/A N/A 
FFC1 N/A N/A 

NOT EQUAL FFC1 



A888 
0010 
0010 



SLCA-XR 
N/A N/A 
N/A N/A 



ACCUM NOT EQUAL 8000 



OC 
8000 N/A 
8000 N/A 



A888 
0010 
0010 



SLCA-XR 
N/A N/A 
N/A N/A 



N/A AFTER 
N/A AFTER 



N/A AFTER 
N/A AFTER 



N/A AFTER 
N/A AFTER 



LDX 

LOX 



LOX 
SLCA 



LOX 
SLCA 



OATE 
EC NO. 



02JAN66 01MAY66 15N0V66 15FEB68 26AUG68 
415490 415490C 419643 420403 420403A 



PROG ID 
PAGE 



03A1-1 
14 





o 
e 
o 



» 
- i 

1 

C 1 


• 
• 





• 





t 





• 


c 


• 





• 





• 





• 





• 





• 


• 


• 


• 


• 


9 


• 


• 


• 


• 


• 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 14A 



• INOEX REG 1 NOT EQUAL 0010 3A118380 

3A118400 
3A118410 



AOORESS 

OF • 
8-REG ROUTINE • A-REG Q-RE6 XR-1 XR-2 XR-3 STATUS 3A118420 

* 3A1 18440 



t 



3141 0E59 



3142 0E59 



3143 0E59 



3144 0E78 



3145 0E78 



3146 0E7B 



3147 0E9A 



* 



OC A88C SLC-XR 
OOOO 0000 0020 N/A N/A 
0000 0000 0000 N/A N/A 
ACCUM NOT EQUAL 0000 



OC A88C . SLC-XR 
0000 0000 0020 N/A N/A 
0000 OOUS 0000 N/A N/A 
REG NOT EQUAL 0000 



N/A AFTER 
N/A AFTER 



N/A AFTER 
N/A AFTER 



DC A88C SLC-XR 
0000 0000 0020 N/A N/A 
0000 0000 0000 N/A N/A 
INDEX REG 1 NOT EQUAL 0000 



DC 8882 SLC-XR 
0000 0002 FFDF N/A N/A 
8000 0000 FFC1 N/A N/A 
ACCUM NOT EQUAL 8000 



OC »S82 SLC-XR 

0000 0002 FFOF N/A N/A 
8000 0000 FFC1 N/A N/A 
REG NOT EQUAL 0000 



3148 9E9A 



3149 0E9A 



314A OEBA 



OC 
0000 0002 
8000 0000 
INDEX REG 1 



B882 SLC-XR 
FFDF N/A N/A 
FFC1 N/A N/A 

NOT EQUAL FFC1 



. ,cR 



N/A AFTER 
N/A AFTER 



N/A AFTER 
N/A AFTER 



N/A AFTER 
N/A AFTER 



LDX 
SLC 



LOX 
SLC 



LOX 
SIC 



LDX 
SLC 



LDX 
SLC 



LDX 
SLC 



OC 88S4 SLC-XR 
0000 0002 001F N/A N/A 
8000 0000 0001 N/A N/A 
A SLC TERMINATED BY A ONE BIT 
ZERO DID NOT TURN ON CARRY 



OC B884 SLC-XR 
0000 0002 001 F N/A N/A 
8000 0000 0001 N/A N/A 
ACCUM HAS NOT EQUAL TO 8000 



N/A AFTER LDDCLOX 
C AFTER SLC 
IN ACCUM BIT 



N/A AFTER LDDCLOX 
C AFTER SLC 



DC B884 SLC-XR 
0000 0002 001 F N/A N/A 
8000 0002 0001 N/A N/A 
A SLC TERMINATED BY A ONE IN ACCUM BIT 
ZERO DID NOT LEAVE XR 1 EQUAL 0001 



1 



N/A AFTER LDOCLDX 
C AFTER SLC 



3A 11 8450 
3A118460 
3A 11 8470 
3A1 18480 
3A 11 8490 
3A1 18500 
3A118510 
3A1 18520 
3A118530 
3A118540 
3A118550 
3 Al 18560 
3A 11 8570 
3A1 18580 
3A 11 8590 
3A1 18600 
3A118610 
3A1 18620 
3A 11 8630 
3A1 18640 
3A U 8650 
3A1 18660 
3A 11 8670 
3A1 18680 
3A 11 8690 
3A1 18700 
3A118710 
3A118720 
3A 118730 
3A1 18740 
3A 11 8750 
3A1 18760 
3A1 18770 
3A118780 
3A 11 8790 
3A1 18800 
3A 11*810 
3A1 18820 
3A118830 
3A118840 
3A118850 
3A1 18860 
3A118870 
3A1 18880 
3A 11 8890 
3A 118900 
3A118910 
3A 118920 
3A118930 
3A1 18940 
3A 11 8950 
3A1 18960 
3A118970 
3A1 18980 
3 A 11 8990 
3A1 19000 
3A119010 
3A1 19020 



DC 8885 SLC-1X 
0000 0002 001C N/A N/A N/A AFTER LOOCLOX 3A119030 
2000 0000 0000 N/A N/A OFF AFTER SLC 3A119040 
A SLC TERMINATED BY XR 1 GOING TO ZERO LEFT 3A119050 



OATE 
EC NO. 



02JAN66 
415490 



01NAY66 
415490C 



15N0V66 
419643 



15FE868 
420403 



26AUG68 
420403A 
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IBM MAINTENANCE DUGMOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE 15 



« THE CARRY FF SET 3*119060 

•••••••••••••••»»»»»*»»»»»»»**»»**»******»**»*****»***»*****************3A n 9070 

of » 3A 119090 

B-KEG ROUTINE » A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A1 . 191 ?? 



31*B 0ED6 



31*C 0E06 



31*0 0EF1 



31*E OEFB 



31*F 0F05 



3150 OFOF 



3151 0F19 



3152 0F2* 



3153 0F2* 



315* 0F2* 



3155 0F3E 



3156 0F*6 



» 
* 

» 
* 

* 



OC BBAO CMP A GREATER 
*000 N/A N/A N/A N/A N/A 
A GREATER THAN M CMP FAILED 



DC BBAO CMP A GREATER M 

*000 N/A N/A N/A N/A N/A AFTER LD 

*000 N/A N/A N/A N/A N/A AFTER CMP 
ACC D1STR0YED AFTER CMP 



OC B8A1 CMP A LESS 
0000 N/A N/A N/A N/A N/A 
ACC LESS THAN M FAILS 



DC BBA2 CMP A LESS M 

* 0000 N/A N/A N/A N/A N/A 

* ACC LESS THAN M FAILS 



DC B8A3 CMP A LESS M 

* 0000 N/A N/A N/A N/A N/A 

* ACC LESS THAN M FAILS 

* 

DC B8A* CMP A LESS M 

* 8000 N/A N/A N/A N/A N/A 

* ACC LESS THAN M FAILS 



DC 
1000 
ACC EQ 



B8A5 
N/A N/A 
M FAILED 



CMP A 
N/A N/A 



EO M 
N/A 



OC B8C0 

* 8000 0001 N/A 

• OCM AO GREATER THAN M 



OCM AQ GTR M 
N/A N/A N/A 
MCI FAILED 



MCI 



DC B8C0 DCM AO GTR M, Mil 
BOOO 0001 N/A N/A N/A N/A 
ACC D1STR0VED AFTER DCM 



DC B8C0 OCM AQ GTR M.Mtl 
8000 0001 N/A N/A N/A N/A 
REG OISTROYED AFTER DCM 



OC B8C1 DCM AO LESS H.Mtl 
0000 BOOO N/A N/A N/A N/A 
DCM FAILED MHtN A,Q LESS THAN M, Mtl 

OC B8C2 OCM AO EO M.MC1 
0000 8000 N/A N/A N/A N/A 
OCM FAILED WHEN A,0 EQ M, MCI 



3A119120 
3A119130 
3A1191*0 
3A1 19150 
3A119160 
3A11917C 
3A119180 
3A119190 
3A1 19200 
3A119210 
3A1 19220 
3A119230 
3A1 192*0 
3A119250 
3A1 19260 
3A 119270 
3A1192B0 
3A119290 
3A1 19300 
3A119310 
3A1 19320 
3A119330 
3 Al 193*0 
3A119350 
3 Al 19360 
3A119370 
3A119380 
3A119390 
3A 119*00 
3A119*10 
3A1 19*20 
3A1 19*30 
3A119**0 
3 A 119*50 
3A1 19*60 
3A 119*70 
3 Al 19*80 
3A I 19*90 
3A1 19500 
3A119510 
3A119520 
3A1 19530 
3A1 195*0 
3A119550 
3A1 19560 
3A119570 
3A119580 
3A119590 
3A1 19600 
3A119610 
3A1 19620 
3A 119630 
3A1 196*0 
3A 119650 
3A119660 
3A119670 
3A1 19680 
3A 119690 
3A1 19700 
3A119710 
3A1 19720 
3A119730 



DATE 
EC NO. 



02 J AN 66 
* 15*90 



01MAY66 
*15*9CC 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AUG68 
*20*03A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE 15A 



• 3A1 197*0 

»»**»»«»»»*»»»*»»»»»»»»»»»»»»««»»»*»»»»»»»«»»»»*»»*»**»»»»»»»»*»**»**»»*3A1 19750 

ADDRESS » 3A119760 

OF • 3A119770 

B-KEG ROUTINE • A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A119780 

»»*»*»»»*»»*»»*»»»»»«*»»*»»*»»*»*»»»*»*»»»*»»***»»****»*»***»»»*********3A 119790 
-.,<:-. « ««-re nr At.t.n mi l -1 ^Al 19800 



3157 087F 



3158 087F 



3159 0897 



315A 0897 



315B 08AF 



315C 08AF 



315D 09DC 



315E 09ER 



315F 09F* 



DC A660 
N/A N/A 0000 
N/A N/A fFFF 
INDEX 2 CHANGED 



DC 
N/A 

N/A 

INDEX 



A660 
N/A 0000 
N/A FFFF 
3 CHANGED 



DC A662 
N/A N/A 0000 
N/A N/A 0000 
INDEX 1 CHANGED 



DC 
N/A 
N/A 
INDEX 



A662 
N/A 0000 
N/A 0000 
3 CHANGED 



LDX 1 -1 
0000 0000 
0000 0000 



LOX 1 -1 
0000 OOOQ 
0000 0000 



LDX 2 - 
0000 0000 
FFFF 0000 



LOX 2 - 
0000 0000 
FFFF 0000 



N/A AFTER LDXSS 
N/A AFTER LDX 1 



N/A AFTER LDX3S 
N/A AFTER LDX 1 



N/A AFTER LDXSS 
N/A AFTER LDX 2 



N/A AFTER 
N/A AFTER 



LDxas 

LDX 2 



DC A66* 
N/A N/A 0000 
N/A N/A 0000 
INDEX 1 CHANGED 



DC A66* 
N/A N/A 0000 
N/A N/A 0000 
INDEX 2 CHANGED 



LDX 3 -1 
0000 0000 
0000 FFFF 



LDX 3 -1 

0000 oooo 

0000 FFFF 



N/A AFTER LDxas 
N/A AFTER LDX 3 



N/A AFTER LDXSS 
N/A AFTER LDX 3 



OC 



A6D0 



INDEXEO INST FfO 



* 
* 

* 
* 

* 



INITIALLY XR 1 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C0 
SHORT FORM INDEXED INST FAILC-D XXiln 

OC A6D2 INDEXEO INST F#0 
INITIALLY XR 2 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C2 
SHORT FORM INDEXED INST FAILED »Xi2o 

DC A6D3 INDEXED INST FiO 
INITIALLY XR 3 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C1 
SHORT FORM INDEXED INST. FAILEO XX#3n 



3A1 19800 

3A119B10 

3A119820 

3A 11 9830 

3A1198*0 

3A119850 

3A1 19860 

3A119870 

3A119880 

3A 119890 

3A1 19900 

3A119910 

3A1 19920 

3A 11 9930 

3A1 199*0 

3A119950 

3A1 19960 

3A119970 

3 Al 19980 

3A 119990 

3A 120000 

3A120010 

3A120020 

3A 120030 

3A1 200*0 

3A 120050 

3 Al 20060 

3A120070 

3A120060 

3A 120090 

3A120100 

3A120110 

3A120120 

3A120130 

3A1 201*0 

3A120150 

3A120160 

3A120170 

3A120180 

3A120190 

3A1 20200 

3A120210 

3A1 20220 

3A120230 

3A) 202*0 

3A120250 

3A1 20260 

3A120270 

3A120280 

3A 120290 

3A1 20300 

3A120310 

3A1 20320 

3A120330 

3A1 203*0 

3A120350 

3A120360 

3A120370 

3A120380 

3A120390 

3A 120*00 

3A120*10 



DATE 
EC NO. 



02JAN66 
* 15*90 



01MAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AU668 
*2O*03A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 
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PAGE 16 



B-REG 
3160 



3161 



3162 



3163 



3164 



3165 



3166 



ADDRESS » 
OF * 
ROUTINE * 

»»»»»»»» »**»»*»»* 
ODCF 

« 

* 
0DF6 

* 

. * 

0E3B 

* 

* 
OAOO 

* 

OAOC 

* 
* 

« 

0A18 

* 

* 

0A29 

* 
* 



»**•****•*****•***********•*****•»*«***•*****•*•*» 



3167 0B10 



3168 0D9C 



3169 08C9 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A880 SLCA CK CARRY 
0000 FFFF OOOA N/A N/A C AFTER LDDCLDS 
0000 FFFF 0000 N/A N/A OFF AFTER STS 
CARRY ON SHOULD BE OFF 



DC A884 SLCA CK CARRY 
0001 0010 FFDO N/A N/A OFF AFTER LDDtLDX 
8000 0010 FF01 N/A N/A C AFTER SLCA 
CARRY OFF, SHOULD BE ON 



DC A8B9 

0001 N/A 0010 

0002 N/A N/A 
SLCA T«0 FAILED 



NON INDEXED SLCA 
0010 0010 N/A AFTER LD 
N/A N/A N/A AFTER SLCA 



DC A6D5 INDEXED SLA 
0001 N/A 0002 N/A N/A N/A AFTER LOCLOX 
0004 N/A N/A N/A N/A N/A AFTER SLA 
INDEXED SLA FAILED 



DC A6D6 INDEXED SRA 
0004 N/A N/A 0002 N/A N/A AFTER LDXfcLD 
0001 N/A N/A N/A N/A N/A AFTER SRA 
INDEXED SRA FAILEO 



DC A6F0 INDEXED BSC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL N6F1 
ACC DISTRQYED AFTER INDEXED BSC 



DC A6F1 IND1R, 

N/A N/A 0001 N/A M/A 

N/A N/A N/A N/A N/A 

INDIRECT, INDEXED BSC FAILEO 



INDEX BSC 

N/A AFTER LOX 
N/A AFTER eSC 



DC A640 STX CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL H640 
ACC OISTROVED AFTER STX 



DC A 849 MDX CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL H849 
ACC DISTROYED AFTER MDX 



DC A670 ACC DECDOE 
0001 N/A 0010 N/A N/A N/A 
0000 N/A 0000 N/A N/A N/A 
FALSE DECODE OF ACC BE ZERO 
* EACH BIT POSITION IS TESTED 



3A120420 

3A 120430 

3A120440 

3A 120450 

3A120460 

3A120470 

3A1 20480 

3A 120490 

3A1 20500 

3A120510 

3A120520 

3A120530 

3A1 20540 

3A120550 

3A1 20560 

3A 120570 

3A1205B0 

3A 120590 

3A1 20600 

3A120610 

3A120620 

3A120630 

3A1 20640 

3A120650 

3A120660 

3A120670 

3A1206B0 

3A120690 

3A120700 

3A 1207 10 

3A120720 

3A 120730 

3A120740 

3A 120750 

3A1 20760 

3A120770 

3A120780 

3A120790 

3A120800 

3A120810 

3A120820 

3A 120830 

3A1 20840 

3A120850 

3A120860 

3A 120870 

3A120880 

3A120B90 

3A1 20900 

3A 1209 10 

3A1 20920 

3A 120930 

3A1 20940 

3A 120950 

3A120960 

3A 120970 

3A1 20960 

3A 120990 

3A121000 

3A121010 

3A121020 

3A121030 

3A121040 

3A121050 

3A121060 

3A121070 

3A121080 

3A 12 1090 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490L 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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• 








3A121100 






**•*»*»*»*»•«»***»*»*»»»*» »«*»»»«*»»»*»»»»»»»«»»»»»»«»»**»««»»»»»»»»»»»»3 A 12 ii io 






ADDRESS 


* 








3A121120 






OF 


• 








3A 12 1130 






B-REG ROUTINE 


* 


A-REG O-REG XR-1 


KR-2 XR-3 STATUS 




3A121140 






«»*»*»»»»*«»»*»»********»»*»»»»»»»»**»»»»»***»*»»»»»»»*»*»» »»»»»*»*«»»««3a 12 il 50 






316A 0D04 




DC B807 


DVD OVFLO 




3A121160 








* 


6100 0000 N/A 


N/A N/A OFF AFTER 


LDD 


3A121170 








• 


N/A N/A N/A 


N/A N/A AFTER 


D 


3A121180 








• 


OVFLO NOT ON 






3A 12 1190 








* 








3A121200 








* 








3A121210 






3168 ODOF 




DC 6808 


DVD OVFLO 




3A121220 








* 


8000 0000 N/A 


N/A N/A OFF AFTER 


LDD 


3A121230 








• 


N/A N/A N/A 


N/A N/A AFTER 


D 


3A121240 








* 


OVFLO NOT ON 






3A 12 1250 








* 








3A121260 








• 








3A121270 






316C 0D1A 




DC B809 


DVD NO OVFLO 




3A121280 








• 


FFFF FFFF N/A 


N/A N/A OFF AFTER 


LDD 


3A121290 








• 


N/A N/A N/A 


N/A N/A OFF AFTER 


D 


3A121300 








• 


OVFLD ON, SHOULD BE 


OFF 




3A121310 








• 








3A121320 








* 








3A 121330 






3160 0D26 




DC B810 


MPY-DIV ZERO REM 




3A121340 








• 


ACC WRONG AFTER MPY 


-D1V TEST 




3A 12 1350 








* 








3A121360 








* 








3A 12 1370 






316E 0026 




OC B810 


MPY-DIV ZERO REM 




3A121380 








* 


Q REG WRONG AFTER MPY-DIV TEST 




3A121390 








• 








3A121400 








• 








3A 121410 






316F 0D64 




DC A842 


MDX CK ACC 




3A121420 




/ 




• 
• 


INITIALLY ACC HAS CORE LOCATION OF 
SYMBOLIC LABEL N844 




3A 12 1430 
3A121440 








• 


ACC DISTROYED AFTER 


ADD TO MEMORY 




3A 121450 








• 








3A121460 








« 








3A121470 






3170 05FC 




DC A50A 


BSC CK ACC 




3A1 21480 








• 


8001 N/A N/A 


N/A N/A N/A AFTER 


LD 


3A 12 1490 








• 


8001 N/A N/A 


N/A N/A N/A AFTER. 


BSC 


3A121SO0 








• 


ACC DISTROYED AFTER 


BSC CONDITIONS MET 




3A 121510 








• 








3A121520 








• 








3A 12 1530 






3171 0DB2 


• 
• 
• 
* 


DC A84A 
MEMORY LOC HAS ZERO 
MDX FAILED TO SKIP 


MDX MEM CK SKIP 




3A121540 
3A 12 1550 
3A121560 
3A 121570 
3A121580 






3172 ODBC 




DC A85A 


MDX MEM CK NO SKP 




3A 12 1590 








• 


MEMORY LOC IS NON ZERO 




3*121600 








* 


MDX SKIPED, SHOULD 


NOT HAVE 




3A121610 








* 








3A121620 








• 








3A121630 








• 








3A121640 






3173 0E4B 




DC A88A 


SW 15 NO INDEX 




3A121650 








* 


0000 FFFF 0010 


0010 0010 NAFTER 


LDxas 


3A121660 








» 

• 
• 
• 


7FFF N/A N/A 
ICCUM NOT EO TO 7FFF 


N/A N/A NAFTER 


SLC 


3A121670 
3A121680 
3A 12 1690 
3A121700 

3A121710 






3174 0F69 




OC FOOO 


IMPROPER CONTROL 




3A121720 








• 




OPERATION SPECIFIED, 


3A121730 








• 




BIT SW 14 ON WITHOUT 


3A121740 








• 




BIT SW 8 OR 12 ON. 




3A 12 1750 








• 




CORRECT SWS AND PUSH 


3A121760 








• 




START TO CONTINUE 




3A 12 1770 




DATE 


02JAN66 01MAY66 




15N0V66 15FEB68 


26AUG68 




PROG ID 


03A1-1 


EC NO. 


415490 415490C 


* 


1.19643 420403 


420403A 
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f 

t 
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t 
« 

t 

t 
t 
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t 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
Cm FUNCTION TEST 



DATE 
EC NO. 



•••************••*•*•••••••••••••*•***••*••*• 

»»**#********»**»»»•♦*»****»»******»»»*»»**•» 



3175 

012C 03A1 



ORG 
OC 



300 
/03A1 



PID 



»»*»***»*****»»»•••*♦•***»»»»»»»**•»»*»»»•»**•»••*» 



« 
* 
* 



TEST MOX OPERATION 



CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS C REMARKS IDCSEO* AT RIGHT 

*«»♦»»»»»*»*♦♦»»**********»»»»»»***»«**»**»*»***»******»»***»**»♦**»*** 



012D 
012E 
012F 

0130 
0131 



3000 
7001 
3004 

7002 
300 5 



0132 3006 



0133 
0134 



7004 
3007 



xooo 


OC 


/3000 


A080 


MOX 


G080 


£ 


OC 


/3004 


G080 


MOX 


GOBI 




DC 


/3005 


• 








OC 


/3006 


• 






6081 


MOX 


6082 




OC 


/3007 



SET SNITCHES TO RUN 



0135 3008 

0136 3009 

0137 300A 

0138 7002 

0139 3008 

013A 7004 
0138 70FE 
013C 300C 

0130 3000 

013E 300E 



DC 
DC 



DC 



/3008 
/3009 



/300A 



6082 


MOX 


6084 




DC 


/300B 


• 






6083 


MOX 


AOCO 


GO 84 


MOX 


G083 




DC 


/300C 


• 








DC 


/300D 


* 








DC 


/300E 



ERR 


ID 


C 


ERR WAIT 


MOX 


BY 


1 


FAILED 


ERR 


ID 


C 


ERR WAIT 


MOX 


BY 


2 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MOX 


BY 


2 


FAILEO 


ERR 


ID 


E 


ERR WAIT 


MOX 


BY 


4 


FAILEO 


ERR 


ID 


C 


ERR WAIT 


MDX 


BY 


4 


FAILEO 


ERR 


ID 


6 


ERR WAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR MAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


2 


FAILED 


EXIT TO NEXT ROUTINE 



ERR 10 £ ERR NAIT 

MDX BY -2 FAILEO 

ERR ID C ERR NAIT 

MOX BY -2 FAILEO 

ERR ID C ERR NAIT 

MDX BY -2 FAILED 

TEST OF BSC SKIP MHEN IT 
SHOULD NOT 



« 



01 3F 2003 

0140 4802 

0141 7002 

0142 300F 

0143 0000 

0144 4801 

0145 7001 

0146 3010 

0147 4801 

0148 3011 



0149 2000 
014A 4802 
014B 3012 



02JAN66 
415490 



01MAY66 
415490C 



AOCO LDS 
BSC 

MDX 
DC 

* 

N100 DC 
G0C1 BSC 
MDX 
DC 

• 

60C2 BSC 
OC 

LDS 
BSC 
DC 



1SN0V66 
419643 



3 
C 

60C1 
/300F 




60C2 
/3010 


/3011 





c 

/3012 



SET C AND OF ON 
SK IF CARRY IS OFF 

ERR ID C ERR NAIT 
BSC-CARRY FAILED 



ERR 10 t ERR NAIT 
BSC-OVERFLOM FAILED 
CK IF OF MAS RESET 
ERR ID £ ERR NAIT 
BSC-OVFLN SKPD-SHOULD 
•NOT HAVE 

RESET CARRY TO OFF 
SK IF CARRY IS OFF 
ERR ID C ERR NAIT 
BSC-C 010 NOT SKIP 



15FEB68 
420403 



26AUG6B 
420403A 



PART NO. 2191204 
PAGE 17 



3A121780 

3A 12 1790 

3A121800 

3A121810 

3A121820 

3A121830 

3A121840 

3A121850 

3A121860 

3A121870 

3A1218B0 

3A121B90 

3A121900 

3A 12 19 10 

3A121920 

3A121930 

3A121940 

3A121950 

3A1 21960 

3A121970 

3A1219B0 

3A121990 

3A122000 

3A122010 

3A122020 

3A122O30 

3A122040 

3A1220S0 

3A122060 

3A122070 

3A122080 

3A 122090 

3A122100 

3A 122110 

3AI22120 

3A122130 

3A122140 

3A 122 150 

3*122160 

3A122170 

3A122180 

3A 122190 

3 Ai 22200 

3A 122210 

3A1 22220 

3A 122230 

3A122240 

3A122250 

3A122260 

3A122270 

3A122280 

3A122290 

3A122300 

3A122310 

3A122320 

3A122330 

3A122340 

3A 122 350 

3A122360 

3A122370 

3A122380 

3A122390 

3A122400 

3A 122410 

3A122420 

3A122430 

3A122440 

3A 12 2450 



PROG ID 
PAGE 



c 
c 






o 



o 
o 

o 
o 
c 
o 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



• TEST OF ACC ABILITY TO HOLD 

• ALL ZEROS 

CORE DATA OR »LA- OPER- 

ADOR INSTRUCTION *BEL ATION FT OPERANDS C REMARKS IDtSEQi AT RIGHT 



DATE 
EC NO. 



014C 
014D 
014E 

014F 
0150 
0151 

0152 
0153 



0154 
0155 
0156 



0157 
0158 
0159 

015A 
015B 
Q15C 

01SD 
015E 
015F 
0160 

0161 
0162 
0163 
0164 

0165 
0166 
0167 
0168 

0169 

016A 
016B 
016C 

0160 
016E 
016F 
0170 

0171 
0172 
0173 
0174 

0175 
0176 



C0F6 
4820 
3013 

C0F3 
4820 
3014 

4804 
3015 



A100 LD N100 LO /OOOO 

BSC Z SK IF ZERO 

OC /3013 ERR ID £ ERR NAIT 

• LD ACC TO FAILED 
LD N100 ACCKO, RELOAD TO 
BSC - Z SK IF ZERO 

DC /3014 ERR ID t ERR NAIT 

• LD ACC TO FAILED 
BSC E SK IF EVEN 

DC /3015 ERR 10 £ ERR NAIT 
BSC ON EVEN FAILED 






CONTAIN ALL ONES 



C04A 
4810 
3016 



4808 
7001 
3017 

4804 
7001 
3018 

1801 
4804 
7001 
3019 

1801 
4804 
7001 
301 A 

1801 

4804 
7001 
30 IB 

1801 
4804 
7001 
0000 

1801 
4804 
7001 
30 ID 

1801 
4804 
7001 
301 E 

1801 
4804 



A140 



« 
G140 



6141 



G142 



* 
G143 



6144 



6145 



6146 



* 
6147 



LO 

BSC 

DC 



BSC 
MDX 
OC 

BSC 
MDX 
OC 

SRA 
BSC 
MDX 
DC 

SRA 
BSC 
MOX 
DC 

SRA 
BSC 
MDX 
DC 

SRA 

BSC 

MOX 
DC 

SRA 

BSC 
MOX 
DC 

SRA 
BSC 

MOX 
OC 

SRA 
BSC 



N140 



/3016 



e 

6140 
/3017 

E 

6141 

/3018 

1 
E 

6142 
/3019 

1 
E 

6143 
/301A 

1 
E 

6144 
/301B 

1 
E 

6145 

/301C 

1 

E 

6146 
/301D 

1 
E 

6147 
/301E 

1 

E 



ACC. #0, RELOAD TO ONES 
SK IF MINUS 
ERR ID £ ERR NAIT 
LOAD ACC. FAILED OR 
•BSC ON NEC. FAILEO 



ERR 10 £ ERR NAIT 
BSC ON £ SKPD- 
» SHOULD NOT HAVE 

ERR 10 £ ERR NAIT 
BSC ON E SKPD- 
•SHOULD NOT HAVE 



ERR ID £ ERR NAIT 
ACC NOT • 7FFF 



ERR ID £ ERR WAIT 
ACC NOT i 3FFF 



ERR ID £ ERR NAIT 
ACC NOT f 1FFF 



ERR ID £ ERR NAIT 
ACC NOT f OFFF 



ERR ID £ ERR NAIT 
ACC NOT # 07FF 



ERR 10 £ ERR NAIT 
ACC NOT • 03FF 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AU668 
420403A 



PART NO. 2191204 
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3A122460 

3A 122470 

3 A 122480 

3A 122490 

3A122500 

3A 1225 10 

3A122520 

3A122530 

3A122540 

3A 122550 

3A122560 

3A122570 

3A122580 

3A122590 

3A1 22600 

3A122610 

3A122620 

3A122630 

3A122640 

3A122650 

3A122660 

3A122670 

3A122680 

3A122690 

3A122700 

3A122710 

3A122T20 

3A122730 

3A122740 

3A122750 

3A122760 

3*122770 

3A122780 

3A122790 

3A122800 

3A122810 

3A122820 

3A122830 

3 Al 22840 

3A122850 

3A1 22860 

3A122870 

3A122880 

3A122890 

3A122900 

3A122910 

3AI 22920 

3A 12 2930 

3A122940 

3A122950 

3A122960 

3A 12 2970 

3A122980 

3A 12 2990 

3A123000 

3A123010 

3A123020 

3A123030 

3A123040 

3A 12 3050 

3A123060 

3A123070 

3A123080 

3A123090 

3A12310O 

3A123110 

3A123120 

3A123130 
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DATE 
EC NO. 



0177 


7001 




MOX 


G148 




3A123140 




0178 


30 IF 


• 


OC 


/301F 


ERR ID £ ERR MAIT 
ACC NOT • 01FF 


3A 123150 
3A123160 




0179 


1801 


G148 


SRA 


1 




3A123170 




017A 


4804 




BSC 


E 




3A123180 




0178 


7001 - 




MOX 


G149 




3A123190 




01 TC 


3020 


• 


DC 


/3020 


ERR ID £ ERR MAIT 
ACC NOT • OOFF 


3A1 23200 
3A 12 32 10 




0170 


1801 


G149 


SRA 


1 




3A 123220 




017E 


4804 




BSC 


E 




3A123230 




017F 


7001 




MOX 


G14A 




3A123240 




0180 


3021 


• 


DC 


/3021 


ERR ID t ERR WAIT 
ACC NOT • 007F 


3A123250 
3A123260 




0181 


1801 


G14A 


SRA 


1 




3A123270 




0182 


4804 




BSC 


E 




3A123280 




0183 


7001 




MDX 


G14B 




3A123290 




0184 


3022 


* 


DC 


/3022 


ERR ID E ERR WAIT 
ACC NOT • 003F 


3A123300 
3A123310 




0185 


1801 


G14B 


SRA 


1 


> 


3A123320 




0186 


4804 




BSC 


E 




3A123330 




0187 


7001 




MOX 


G14C 




3A123340 




0188 


3023 


• 


OC 


/3023 


ERR ID C ERR WAIT 
ACC NOT « 001F 


3A 12 3 350 

3A123360 




0189 


1801 


G14C 


SRA 


1 




3A123370 




01 8A 


4804 




BSC 


E 




3A123380 




0188 


7001 




MOX 


G14D 




3A123390 




018C 


3024 


• 


OC 


/3024 


ERR ID E ERR HA IT 
ACC NOT • OOOF 


3A1 23400 
3A123410 




0180 


1801 


G140 


SRA 


1 




3A1 23420 




018E 


4804 




BSC 


E 




3A123430 




018F 


7001 




MOX 


G14E 




3A123440 




0190 


3025 


• 


OC 


/3025 


ERR ID £ ERR WAIT 
ACC NOT/8 0007 


3A123450 
3 Al 23460 




0191 


1801 


G14E 


SRA 


1 


/ 


3A123470 




0192 


4804 




BSC 


E 


3A1 23480 




0193 


7001 




MOX 


G14F 


3A 12 3490 




0194 


3026 


• 


OC 


•3026 


ERR ID £ ERR WAIT 
ACC NpT • 0003 


3A123500 
3A123510 




0195 


1801 


G14F 


SRA 


1 


3A123520 




0196 


4804 




BSC 


E 




3A 123530 




0197 


7001 




MOX 


G150 




3A123540 




0198 


3027 


• 


OC 


/3027 


ERR 10 £ ERR MAIT 
ACC NOT • 0001 


3A123550 
3A123560 




0199 


1801 


G150 


SRA 


1 




3A 12 3570 




019A 


4804 




BSC 


E 




3A123580 




0198 


3028 


• 


OC 


/3028 


ERR ID £ ERR MAIT 
ACC NOT t 0000 


3A123590 
3A123600 




019C 


4820 




BSC 


Z 




3A123610 




0190 


3029 


* 


OC 


/3029 


ERR ID £ ERR MAIT 
ACC NOT f 0000 


3A1 23620 
3A 123630 




019E 


7001 




MOX 


A180 


EXIT TO NEXT ROUTINE 


3A123640 




019F 


FFFF 


N140 

• 


DC 


/FFFF 




3A123650 
3A123660 








• 




TEST LDIN6 OP ONES ON ONES 


3A 12 3670 








• 








3A 123680 








*»•••*••»*****»»*••**••»***•***•»»***•**»»*»*» 


3A123690 




••••••*••••**•***•***•*•»♦*•*»••****•*»»•»»»»•»»***♦***»**»*»••*•»♦»*♦» 


3A1 23700 




CORE 


DATA OR 


•LA- 


OPER- 






3A123710 




ADOR 


INSTRUCTION 


*BEL 


ATION 


FT OPERANDS £ REMARKS IDtSEOi AT RIGHT 


3A1 23720 




*****•***»**•»***•»****»***»*»»*»•*»■*•*»**»*»»»***»*#***»»»*»»»*«»*»•*» 


3A123730 




01A0 


C049 


A180 


ID 


N180 


LD /FFFF 


3A123740 




01A1 


482C 




BSC 


£EZ 


SK ON CEVEN OR ZERO 


3A123750 




01A2 


4810 




BSC 


- 


SK IF MINUS 


3A123760 




01A3 


30 2A 


• 


OC 


/302A 


ERR ID £ ERR MAIT 
ACC NOT • FFFF 


3A 12 3770 
3A123780 




01A4 


C045 




LD 


N180 


LD /FFFF 


3A 12 3790 




01A5 


482 C 




BSC 


£EZ 




3A1 23800 




01A6 


4810 




BSC 






3A123810 




02JAN66 01MAY66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


415490 


415490C 


419643 


420403 
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DATE 
EC NO. 



01A7 3028 


* 


DC 


/302B 


01A8 1801 


SRA 


1 


01A9 4804 
01AA 7001 
01AB 302C 


• 


BSC 

MOX 
OC 


E 

G181 

/302C 


OlAC 1801 
01AO 4804 
01AE 7001 
01 AF 3020 


Giei 

• 

G182 


SRA 
BSC 

MOX 
DC 


1 
E 

G182 
/3020 


01 BO 1801 

0181 4804 

0182 7001 
°01B3 302E 


SRA 
BSC 
MOX 
DC 


1 
E 

G183 
/302E 


0184 1801 

0185 4804 

0186 7001 
01B7 302F 


G183 

• 
G184 

• 
G185 


SRA 
BSC 
MDX 
DC 


1 
E 

G184 
/302F 


01B8 1801 
0169 4804 
01BA 7001 
0188 3030 


SRA 
BSC 
MOX 
DC 


1 

E 

G1B5 

/3030 


01BC 1801 
01 BD 4804 
018E 7001 
01BF 3031 


SRA 
BSC 
MDX 
DC 


1 
E 

G186 
/3031 


OICO 1801 
OlCl 4804 
01C2 7001 
01C3 3032 


G186 


SRA 
BSC 
MOX 
DC 


1 
E 
G167 

/3032 


01C4 1801 
01CS 4804 
01C6 7001 
01C7 3033 


G187 


SRA 

BSC 
MDX 
OC 


1 
E 

G1S« 
/3033 


01C8 1801 
01C9 4804 
01CA 7001 
01CB 3034 


G188 

* 
G189 


SRA 
BSC 

MOX 
DC 


1 
E 

S189 
/3034 


01CC 1801 
OICO 4804 
01CE 7001 
01CF 3035 


SRA 

BSC 
MDX 
DC 


1 
E 

G18A 
/3035 


0100 1801 

0101 4804 

0102 7001 

0103 3036 


G18A 

* 
G18B 


SRA 
BSC 
MDX 
DC 


1 
E 

G18B 
/3036 


0104 1801 

0105 4804 

0106 7001 

0107 3037 


SRA 
BSC 

MDX 
DC 


1 
E 

61 6C 
/3037 


01D8 1801 
0109 4804 
OlOA 7001 
0108 3038 


G18C 


SRA 
BSC 
MOX 
DC 


1 
E 

G180 
/3038 



ERR ID £ ERR MAIT 
ACC NOT * FFFF 
SHIFT RIGHT ONE 
TEST ABILITY OF ACC TO SHIFT 



ERR ID £ ERR MAIT 
ACC NOT • 7FFF 



ERR ID £ ERR MAIT 
ACC NOT # 3FFF 



ERR ID £ ERR MAIT 
ACC NOT • 1FFF 



ERR ID £ ERR MAIT 
ACC NOT • OFFF 



ERR ID £ ERR MAIT 
ACC NOT # 07FF 



ERR ID £ ERR MAIT 
ACC NOT i 03FF 



ERR ID £ ERR WAIT 
ACC NOT * OlFF 



ERR ID £ ERR MAIT 
ACC NOT • OOFF 



ERR 10 £ ERR MAIT 
ACC NOT * 007F 



ERR ID £ ERR MAIT 
ACC NOT * 003F 



ERR 10 £ ERR MAIT 
ACC NOT 8 001F 



ERR ID £ ERR MAIT 
ACC NOT • OOOF 



ERR 10 £ ERR MAIT 
ACC NOT 8 0007 



02JA'j6 
41&«90 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A123820 

3A123830 

3A123840 

3A 123850 

3A123660 

3A123B70 

3A123880 

3A123890 

3A123900 

3A123910 

3A123920 

3A 123930 

3A123940 

3A123950 

3A123960 

3A123970 

3AU3980 

3A123990 

3A124000 

3A124010 

3A124020 

3A124030 

3A1 24040 

3A 12 4050 

3A1 24060 

3A124070 

3 A 124080 

3A124090 

3A124100 

3A124110 

3A124120 

3A124130 

3A124140 

3A124150 

3A124160 

3A124170 

3A1 24180 

3A124190 

3A1 24200 

3A124210 

3A124220 

3A 124230 

3A124240 

3A124250 

3A1 24260 

3A124270 

3A124280 

3A 124290 

3 Al 24300 

3A124310 

3A1 24320 

3A124330 

3A1 24340 

3A124350 

3A1 24960 

3A 124370 

3A124380 

3A124390 

3 Al 24400 

3A124410 

3 Al 24420 

3A 124430 

3A124440 

3A124450 

3A124460 

3A124470 

3A1244S0 

3A 124490 



PROG ID 
PAGE 
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I 





01DC 





1801 


6180 


SRA 


1 




3A1 24500 






01DD 





4804 




BSC 


E 




3A124S10 






01DE 





7001 




BOX 


G18E 




3 Al 24520 






01DF 





3039 


• 


DC 


/3039 


ERR ID t ERR WAIT 
ACC NOT * 0003 


3A 124530 
3A124540 






01 EO 





1801 


GIBE 


SRA 


1 




3A124550 






01E1 





4804 




BSC 


E 




3A1 24560 






01E2 





7001 




MDX 


G18F 




3A124570 






01E3 





303A 


• 


DC 


/303A 


ERR 10 £ ERR WAIT 
ACC NOT • 0001 


3A124580 
3A124590 






01E4 





1801 


G18F 


SRA 


1 




3A124600 






01E5 





4804 




BSC 


E 




3A124610 






01E6 





303B 


• 


DC 


/303B 


ERR ID t ERR WAIT 
ACC NOT • 0000 


3A124620 
3A124630 






01E7 





4820 




BSC 


Z 




3A124640 






01 E8 





30 3C 


• 


DC 


/303C 


ERR ID E ERR WAIT 
ACC NOT * 0000 


3A 124650 
3A124660 






01E9 





7001 




MDX 


A1C0 


EXIT TO NEXT ROUTINE 


3A 124670 






01EA 





FFFF 


N180 

* 


DC 


/FFFF 




3A124680 
3A124690 












• 




TEST ABILITY TO LOAD ZEROS 


3A124700 












* 




ON 


TOP OF ZEROS AND ONES ON 


3A 1247 10 












• 




TOP OF ZEROS 


3A124720 












• 








3A124730 












•ft******************************************** 


3A1 24740 






**•*****•****••«*•*•*•••••*••*•*••*••*•*•*••*•**•••••**•**•***•*•***•** 


3A124750 






CORE 




OAT A OR 


»LA- 


OPER- 






3A124760 






ADOR 




INSTRUCTION 


•BEL 


ATION 


FT OPERANDS £ REMARKS ID£SEQ# AT RIGHT 


3A 124770 






ft********************************************************************** 


3A1 24780 






01EB 





C007 


A1C0 


LD 


N1C0 


LO /OOOO 


3 A 124790 






01EC 





4820 




BSC 


Z 


SK ON ZERO 


3A124800 






01E0 





3030 


* 


DC 


/303D 


ERR ID t ERR MA IT 
ACC NOT • ZERO 


3A 1248 10 
3A124820 






01EE 





C005 




LD 


N1C1 


LD /FFFF 


3A124830 






01EF 





482C 




BSC 


£EZ 




3A124840 






01F0 





4810 




BSC 


- 


SK ON MINUS 


3A124850 






01F1 





303E 


• 


DC 


/303E 


ERR ID C ERR WAIT 
ACC NOT • FFFF 


3A124860 
3A124870 






01F2 





7002 




MDX 


A1D0 


EXIT TO NEXT ROUTINE 


3A124880 






01F3 





0000 


N1C0 


DC 


/OOOO 




3A124890 






01F4 





FFFF 


N1C1 

• 


DC 


/FFFF 




3A124900 
3A124910 












• 




TEST EOR OPERATION 


3A124920 












• 








3A124930 












»»»»»»»»»»*»»»»»*»»**»«»»***»»•**»•***»»»»»»*» 


3A124940 






01F5 





C01C 


A1D0 


LD 


NIDI 


LD /OOOO 


3A 12 49 50 






01F6 





4820 




BSC 


Z 


SK ON ZERO 


3A124960 






01F7 





30 3F 


• 


DC 


/303F 


ERR ID £ ERR WAIT 
ACC NOT • ZERO 


3A 124970 
3A1 24980 






01F8 





F019 




EOR 


NIDI 


ZERO MITH /OOOO 


3A124990 






01F9 





4820 




BSC 


Z 


SK ON ZERO 


3A125000 






01FA 





3040 


• 


DC 


/3040 


ERR ID C ERR MAIT 
EOR OF AND FAILED 


3A 12 50 10 
3A125020 






01FB 





CO 15 




LD 


N1D0 


LD /FFFF 


3A12503O 






01FC 





F014 




EOR 


N1D0 


ZERO WITH /FFFF 


3A1 25040 






01F0 





4820 




BSC 


Z 




3A125050 






01FE 





3041 


» 


DC 


/3041 


ERR ID £ ERR MAIT 
EOR OF 1 AND 1 FAILED 


3A125060 
3A12507O 






OlFF 





F011 




EOR 


N1D0 




3A125080 






0200 





482C 




BSC 


CEZ 




3A 12 5090 






0201 





4810 




BSC 


- 




3A125100 






0202 





3042 


• 


DC 


/3042 


ERR ID £ ERR MAIT 
EOR OF 1 AND FA I LEO 


3A125110 
3A125120 






0203 





1801 




SRA 


1 




3A125130 






0204 





FOOE 




EOR 


N1D2 




3A125140 






0205 





4820 




BSC 


Z 




3A125150 






0206 





3043 


• 


OC 


/3043 


ERR ID £ ERR MAIT 
EOR OF 1 AND FAILED 


3A125160 
3A 125170 




OATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 


420403A 
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DATE 
EC NO. 



0207 





C009 






LD 




N1D0 






3A125180 




0208 





F009 






EOR 




NIDI 






3A 12 5 190 




0209 





482C 






BSC 




£EZ 






3A125200 




020A 





4810 






BSC 




- 






3A125210 




0208 





3044 




* 


OC 




/304* 




ERR ID C ERR MAIT 
EOR OF AND 1 FARED 


3A125220 
3A125230 




020C 





1801 






SRA 




1 






3A125240 




020D 





F005 






EOR 




N1D2 






3 A 12 52 50 




020E 





4820 






BSC 




Z 






3A125260 




020F 





3045 




• 


DC 




/3045 




ERR 10 C ERR MAIT 
EOR OF AND 1 FAILED 


3A 12 52 70 
3A125280 




0210 





7003 






MDX 




A1E0 




EXIT TO NEXT ROUTINE 


3A 12 5290 




0211 





FFFF 




N1D0 


OC 




/FFFF 






3A125300 




0212 


OOOO 




NIDI 


DC 




/OOOO 






3A 125310 




0213 





7FFF 




N102 

* 


DC 




/7FFF 






3A125320 
3A 125330 












• 






TEST 


OF ABILITY TO SET 


3A125340 












• 






F 


BI 


r TO ONE 


3A125350 












• 












3A12S360 












»»***»»**»****»******»»»»»»»*»»*»»»*»»»*»»*»»* 


3A125370 




0214 





C400 


021F 


A1E0 


LD 


L 


N1E1 




LO /OOOO 


3A125380 




0216 





4820 






BSC 




Z 




SK ON ZERO 


3A125390 




0217 





3046 




* 


DC 




/3046 




ERR ID £ ERR MAIT 
WRONG LOCATION LOADED 


3A125400 
3A125410 




0218 





C400 


02 IE 




LD 


L 


N1E0 




LO CSNIEOd 


3A125420 




021A 





F003 






EOR 




N1E0 






3A 125430 




021B 





4820 






BSC 




Z 




SK ON ZERO 


3A125440 




02 1C 





3047 




• 


DC 




/3047 




ERR ID £ ERR MAIT 
WRONG LOCATION LOADE 


3A125450 
3A125460 




021D 





7002 






MDX 




A1F0 




EXIT TO NEXT ROUTINE 


3A 12 5470 




021E 





021 E 




N1E0 


DC 




N1E0 






3A125480 




021F 





OOOO 




N1E1 

• 


DC 




/OOOO 






3A 12 5490 
3A125500 












* 






TES1 


OF INDIRECT ADDRESSING 


3A125510 












• 












3A125520 












•*•••••••***•*****•••»*«••««*«•»••••••••**•**• 


3A125530 




0220 





C480 


022C 


A1F0 


LD 


I 


N1F2 




LO /OOOO 


3A125540 




0222 





4820 






BSC 




I 




SK ON ZERO 


3A125550 




0223 





3048 




• 


DC 




/3048 




ERR ID £ ERR WAIT 
WRONG LOCATION LOADEO 


3A125560 
3A 125570 




0224 





C4B0 


022B 




LD 


I 


N1F1 




LD CXN1F1D 


3A125580 




0226 





F004 






EOR 




N1F1 




ZERO WITH CSNlFlo 


3A 125590 




0227 





4820 






BSC 




Z 






3A125600 




0228 





3049 




• 


DC 




/3049 




ERR ID £ ERR WAIT 
WRONG LOCATION LOADED 


3A125610 
3A1 25620 




0229 





7003 






MDX 




A200 




EXIT TO NEXT ROUTINE 


3A125630 




022A 





OOOO 




N1F0 


DC 




/OOOO 






3A125640 




022B 





022B 




N1F1 


DC 




N1F1 






3A125650 




022C 





022A 




N1F2 

• 


OC 




N1F0 






3A125660 
3A 125670 












• 






TEST 


OF BSC LONG FORM AND 


3A125680 












* 






INDIRECT OPERATION 


3A 125690 












• 












3A125700 












••••••••a*********** *••••»••***••*••••**•*•••* 


3A125710 




•••••**•••••••••••••••••••*•••***•****•*•*•*•••*• ***»***«•*•*••*••*•••• 


3A125720 




CORE 




DATI 


OR 


•LA- 


OPER- 










3A 125730 




ADOR 




INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS 


£ REMARKS ID£SEO« AT RIGHT 


3A125740 




*•••«••••••**•*•••••*•*••••••••»••*••••******•*•»•*••••*•••*»•*•••••••« 


3A 12 5750 




0220 





4C00 


0231 


A 200 


BSC 


L 


G200 






3A125760 




022F 





304A 




• 


DC 




/304A 




ERR ID £ ERR WAIT 
BSC DID NOT BRANCH 


3A 125770 
3A125780 




0230 





304B 




• 


OC 




/304B 




ERR ID C ERR MAIT 
BSC SKPO-SHOULO BRNCH 


3A125790 
3A125800 




0231 





C03A 




G200 


LD 




N200 






3A125810 




0232 





4C04 


0236 




BSC 


L 


G201.E 




BR IF NOT EVEN 


3A125820 




0234 





304C 




• 


DC 




/304C 




ERR ID £ ERR MAIT 
BSC E DID NOT BRANCH 


3A 125830 
3A125840 




0235 





3040 






DC 




/304D 




ERR 10 £ ERR MAIT 


3A125850 




02JAN66 01NAV66 


15N0V66 


15FEB68 


26AU668 


PROG 10 


03A1-1 
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C236 4C08 02 3A 

0238 304E 

0239 304F 

023A 4C20 023E 
023C 3050 

0230 3051 

C23E 4C10 0241 

0240 7001 

0241 3052 



0242 

0243 
0245 



2003 

4C02 0247 
3053 



0246 3054 

0247 4C01 0248 
0249 3055 

024A 3056 



0248 
0240 
024E 



4C01 024E 

7001 

3057 



024F 2000 

0250 4C02 0253 

0252 7001 

0253 3058 

0254 4C01 0257 

0256 7001 

0257 3059 

0258 C014 

0259 4C18 0250 
0258 305A 

025C 3058 

025D COOE 
025E 4C18 0261 

0260 7001 

0261 305C 

0262 COOB 

0263 4C18 0266 

0265 7001 

0266 3050 

0267 4C80 026F 
0269 305 E 

026A 30SF 

0268 7004 
026C FFFF 
0260 0000 
026E 0001 
026F 0268 



G201 BSC 
DC 

DC 

G202 BSC 
DC 



DC 

BSC 
MOX 
OC 

LOS 
BSC 
DC 

OC 

BSC 
DC 

DC 

BSC 
MDX 
DC 

LOS 

BSC 
MDX 
DC 

BSC 
MDX 
DC 

LO 

BSC 
DC 

DC 

LD 
BSC 
MDX 
DC 

LD 

BSC 
MDX 
DC 

BSC 

DC 

* 

OC 

G20C MDX 
N200 DC 



« 
G203 

V154 

* 

G204 



G205 



G208 
V168 
G206 



VI 70 

* 

G207 
V174 
G209 



G20A 



V180 

* 
G20D 



V184 
G20B 



DC 
DC 
DC 



02JAN66 
415490 



01MAV66 
415490C 



N201 
N202 
N203 



15N0V66 
419643 



0203,1 
/305O 



V154,- 

G204 

/3052 



BSC SKPD-SHOULD BRNCH 
G202.C BR IF NOT PLUS 
/304E ERR 10 t ERR WAIT 

BSC - DID NOT BRANCH 
/304F ERR ID £ ERR WAIT 

BSC SKPD-SHOULD BRNCH 

ERR ID C ERR WAIT 
BSC Z DID NOT SKIP 
/3051 ERR 10 C ERR WAIT 

BSC SKPD-SHOULD BRNCH 
BR IF NOT MINUS 

ERR ID £ ERR WAIT 

BSC SKPD-SHOULD NOT 
3 SET C ANO OF ON 

G205.C BR IF CARRY IS ON 
/3053 ERR ID £ ERR MAIT 

BSC C OID NOT BRANCH 
/3054 ERR ID C ERR MAIT 

BSC SKPD-SHOULD BRNCH 
G208.0 BR IF OF ON 
/3055 ERR ID £ ERR MAIT 

BSC DID NOT BRANCH 
/3056 ERR ID £ ERR MAIT 

BSC SKPD-SHOULD BRNCH 

BR IF OF ON 

ERR ID £ ERR MAIT 
BSC BRNCD-SHOULO NOT 



V168.0 
6206 

/3057 





V170.C 
G207 
/3058 

V174.0 

G209 

/3059 



N201 
G20A, £- 
/305A 



N202 
V184.S- 
G20B 
/305D 

N203 
/305E 

/305F 

A240 

/FFFF 

/OOOO 

/0001 

G20C 



BR IF CARRY IS OFF 

ERR ID £ ERR MAIT 
BSC BRNCD-SHOULO NOT 
BR IF OF ON 

ERR ID £ ERR MAIT 
BSC BRNCD-SHOULO NOT 



BR ON ZERO 

ERR ID £ ERR MAIT 

BSC £- DID NOT BRANCH 

/305B ERR ID £ ERR MAIT 

BSC SKPD-SHOULD BRNCH 

N200 

V180.C- 

G200 

/305C 



ERR ID £ ERR MAIT 
BSC BRNCHED-SHOULDNT 



ERR ID £ ERR MAIT 

BSC BRNCHED-SHOULDNT 

ERR 10 £ ERR MAIT 
INDIRECT BSC FAILED 
ERR ID E ERR MAIT 
INDIRECT BSC FAILED 
EXIT TO NEXT ROUTINE 



TEST SHORT AND LONG FORM 
BSI 



15FEB68 26AUG68 
420403 420403A 



PART NO. 2191204 
PAGE 20 



3 A 125860 

3A 12 5870 

3A125880 

3A125890 

3A125900 

3A 125910 

3A125920 

3A125930 

3A125940 

3A 12 5950 

3A125960 

3A 125970 

3A125980 

3 A 12 5990 

3A1 26000 

3A 126010 

3A126020 

3A 126030 

3A126040 

3A126050 

3A1 26060 

3A 126070 

3A1 26080 

3A126090 

3A126100 

3A126110 

3A126120 

3A126130 

3A126140 

3A126150 

3A126160 

3A126170 

3A 126 180 

3A126190 

3A1 26200 

3A 1262 10 

3A126220 

3A126230 

3A1 26240 

3A126250 

3A126260 

3A126270 

3A126280 

3A126290 

3A126300 

3A126310 

3A126320 

3A126330 

3 Al 26 340 

3A126350 

3A126360 

3A126370 

3A126380 

3A126390 

3A126400 

3A 12 64 10 

3A126420 

3A126430 

3 Al 26440 

3A126450 

3A1 26460 

3A 126470 

3A126480 

3A 126490 

3A1 26500 

3A 126510 

3A1 26520 

3A 126530 



PROG ID 
PAGE 



c 
c 





e 






o 
c 
o 
c 
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20 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



CORE OATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ 

0270 4002 



PART NO. 2191204 
PAGE 20A 



DATE 
EC NO. 



0271 
0272 

0273 
0274 
0275 
0276 
0277 

0278 
02 7A 



0271 
3060 

0000 
COFE 
FOFB 
4820 
3061 

4408 0270 
3062 



A240 
N240 

• 
N241 



0278 3063 



027C 027A 
0270 0000 
COFE 
FOFC 
4820 
3064 



027E 
027F 
0280 
0281 



VI AC 

N242 
N243 



* 



BSi 

DC 

DC 

DC 

LO 

EOR 

BSC 

DC 

BSI 

DC 

DC 

DC 

DC 

LD 

EOR 

BSC 

DC 



REMARKS IDCSEO* AT RIGHT 



N241 
*240 
/3060 

/OOOO 

N241 

N240 

Z 

/3061 

N24 3,£ 
/3062 

/3063 

V1AC 
/OOOO 
N243 
N242 

Z 
/3064 



STORE ADDRESS OF I REG 

STORfc ADDRESS OF I REG 

ERR ID £ ERR MAIT 

BSI SKPD-SHOULD BRNCH 

RETURN ADDR FOR MAIN PROG 

LD RETURN ADDR 

ZERO IN RETURN ADDR 

cRR ID £ ERR MAIT 
BSI NOT STORED I REG 
STORE ADDR OF I REG 
ERR ID £ ERR MAIT 
BSI £ DID NOT BRANCH 
ERR ID £ ERR MAIT 
BSI SKPD-SHOULD BNCH 

RETURN ADDR FOR MAIN PROG 



ERR 
BSI 



10 £ ERR MAIT 
NOT STORE I REG 



TEST OF INSTR REQUIRED FOR 
ERROR CONTROL 



*•**»**•****»»»*••*»»»•»»•*»»»»*•»»*»»*»»»*»»» 



0282 CO 48 




0283 0048 




0284 C048 




0285 C046 




0286 F044 




0287 4820 




0288 3065 




0289 C047 




028A 4820 




028B 704C 




028C C042 




0280 0043 




028E 1810 




028F 0400 


0001 


0291 61FF 




0292 C400 


0001 


0294 4820 




0295 700F 




0296 C03B 




0297 0031 




0298 D400 


0F67 


029A 0400 


0FD3 


029C 003 A 




029D 0836 




029E E037 




029F F036 





A900 



G902 



LD 

STO 

LD 

LD 

EOR 

BSC 

DC 

LD 

BSC 

MDX 

LD 

STO 

SRA 

STO 

LOX 

LD 

BSC 

MDX 

«.D 

STO 

STO 

STO 

STO 

XIO 

AND 

EOR 



F911 

F912 

F913 

F912 

F911 

Z 

/3065 

F918 

Z 

A280 

F916 

F918 

16 

/0091 

-1 

/0001 

Z 

G901 

F919 

F903 

NSC 2 

F004 

F007 

F922 

F923 



LD A NUMBER 



ERR ID £ ERR MAIT 

STORE FAILED 

CK FIRST PASS SM S/0002O 

IS SM ON 

YES GO TO NEXT ROUTINE 

GET 0002 

STORE /0002 

CLEAR ACC 

ZERO MITH /OOOl 

LO XR 1 MITH -1 

ZERO IN 1800 -1 FOR 1130 

ZERO FOR 1800 

1130 CPU 

1800 P-C LD /0240 

STO /0240 THIS IS AREA, 

• FUNCTION AND MODIFIER 

• FOR READING DATA ENTRY 

• SWITCHES IN 1800 
SENSb SENSE/PROG SMS 
IGNORE CE SMS. S/FFOOn 
ZERO MITH /FFOO 



F923 

•***••*******•»****•*••***»»»»•****•*•»»•»*»*»•*»»«♦»»«»»»»***»»»»»#**» 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS ID£SEO» AT RIGHT 

02AO 4C18 02AC BSC L G900,£- BRANCH ON ZERO 

02A2 F033 EOR F923 

02A3 3066 DC /3066 ERROR 10 £ ERR MAIT 

* SENSE/PROG SMS NOT 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A 126540 

3A126550 

3A 126560 

3A 126570 

3A126580 

3A126590 

3A126600 

3A126610 

3A1 26620 

3A 126630 

3A1 26640 

3A126650 

3A1 26660 

3A 126670 

3A1 26680 

3A126690 

3A1 26700 

3A126710 

3A1 26720 

3A 126730 

3A126740 

3A 12 6750 

3A1 26760 

3A126770 

3 Al 26780 

3A126790 

3A1 26800 

3A 1268 10 

3A1 26820 

3A126830 

3A126840 

3A126850 

3 Al 26860 

3A126870 

3A126880 

3A126890 

3A126900 

3A 126910 

3 Al 26920 

3A126930 

3A1 26940 

3A126950 

3A126960 

3A126970 

3A126980 

3A 126990 

3A127000 

3A127010 

3A127020 

3A127030 

3A127040 

3A12705O 

3A127060 

3A 127070 

3A127080 

3A 12 7090 

3A127100 

3A 127110 

3A127120 

3A127130 

3A127140 

3A127150 

3A1 27160 

3A127170 

3A127180 

3A 127190 

3A1 27200 

341272)0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



02A4 
02A5 
02A6 
02AT 
02 A9 
02AB 
02AC 
O2A0 
02AE 
02AF 
02B1 
0282 



70 F8 

C020 

0022 

0400 0F67 

0*00 0FD3 

002B 

081B 

C022 

FOIF 

4C18 02B4 

F01C 

3067 



02B3 70F« 
02B4 3001 



02B5 
02B6 
02B7 
02B9 
02BA 
02BB 
02BO 



CO 13 

F01C 

4C18 02BF 

081A 

E01B 

4C18 02BF 

3068 



02BE 70FA 
02BF 0808 
02C0 COOF 
02C1 4C18 02C5 
02C3 3069 



02C4 70FA 
02CS 3002 



02C6 
02C8 
02C8 
02C9 
02CA 
02CB 
02CC 
02C0 
02CE 
02CF 
0200 
0201 
02D2 
02D3 
0204 
02DS 
0206 
0207 



7011 
0000 
0200 
0240 
02CA 
02CC 
0000 
0000 
FFFF 
0002 
0000 
0000 
0240 
3A00 
0000 
0760 
FFOO 
0240 



G901 



G900 



* 

xooi 



G903 



G904 



* 



X003 



F902 
F903 
F904 
F911 
F912 
F913 
F915 
F916 
F917 
F918 
F919 
F920 
F922 

F923 

F007 



MOX 

LD 

STO 

STO 

STO 

STO 

X10 

LO 

EOR 

BSC 

EOR 

OC 



MOX 

DC 



LD 

EOR 

BSC 

XIO 

AND 

BSC 

DC 



MDX 

XIO 

LO 

BSC 

OC 



MDX 
OC 



MOX 
BSS 

OC 
OC 
OC 
DC 
OC 
OC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 



G902 

F920 

F903 

N8C2 

F004 

F007 

F902 

F917 

F915 

XOOlrt- 

F915 

/3067 



G900 
/3001 



F903 

F920 

G904.C- 

F922 

F923 

G904, £- 

/3068 



G903 

F902 

F917 

X003t£- 

/3069 



G904 
/30O2 



A280 

F917 

/0240 

F904 

F912 

/OOOO 

/OOOO 

/FFFF 

/0002 

/OOOO 

/OOOO 

/0240 

/3A00 



/0760 

/FFOO 

/0240 



* EQUAL TO /FFOO 
REPEAT TEST 

1130 CPU LO /3A00 
STO /3A00 THIS IS 

* AREA. FUNCTION £ 

* MODIFIER FOR REAOING 

* DATA ENTRY SWITCHES 
TEST DATA ENTRY SMS 

* FOR /FFFF 

BRANCH ON ZERO 

ERR ID £ ERR MAIT 
DATA ENTRY SMS NOT 
EQUAL TO /FFFF 

SET SENSE/PROG AND 
DATA ENTRY SMS TO 
ZEROS ANO PUSH START 
CK FOR 1130 X3AOO-1130H 

XFER IF 1130 

TEST SENSE/ PROG SMS 

IGNORE CE SMS. X/FFOOD 

BRANCH IF OK 

ERR ID £ ERR MAIT 

SENSE/PROG SMS NOT 

* EQUAL TO /OOOO 
REPEAT TEST 

TEST OATA ENTRY SMS 

* FOR /OOOO 
BRANCH ON ZERO 
ERR 10 E ERR MAIT 
DATA ENTRY SMITCHES 

* NOT EQ /OOOO 

SET BIT SMITCHES AS 

* DESIRED FOR RUN 

* AND PUSH START 
EXIT TO NEXT ROUTINE 



EQUAL /3A00 IN 1130 



1800 READ BIT SMS CONSTANT 
1130 READ BIT SMS CONSTANT 
SENSE SENSE/PROG CON 



EQUAL /3A00 IN 1130 



• 

• BEGINING OF SECTION OF 

• PROGRAM USING COMMON ERROR 

• CONTROL ROUTINE 

» 

» TEST OF SRA OPERATION 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



1SFEB68 
420403 



26AUG68 
420403A 





c 


§ 


PART NO. 2191204 






PACE 21 








c 


• 




. 




• 


3*127220 






3A 12 72 30 






3A127240 


c 


• 


3A 12 72 50 






3A127260 






3A127270 





• 


3A 1272 80 






3A127290 






3A127300 





• 


3A127310 






3A127320 






3A127330 





t 


3A127340 






3A127350 






3A127360 


o 


• 


3A127370 






3A127380 






3A127390 


c 


• 


3A127400 






3A127410 






3A127420 


c 


• 


3A127430 






3A127440 






3A1274SO 





• 


3A127460 






3A127470 






3A127*J0 


o 


• 


3A 127490 






3A127500 






3A127510 





• 


3A127520 






3A127S30 






3A127540 





• 


3A127550 






3A127560 






3A 12 75 70 


• 


• 


3A127580 






3A127590 






3A1276O0 


• 


• 


3A127610 






3A 127620 






3A127630 




• 


3A127^40 






3A127650 






3A127660 




• 


3A127670 






3A127b80 






3A 127690 




• 


3A127700 






3A127710 






3A127720 




• 


3A127730 




t 


3A127740 






3A127750 




• 


3A127760 






3A127770 






3A12T780 




• 


3A127790 






3 Al 27800 






3A 12 78 10 




• 


3A127820 






3A127830 






3A127B40 




• 


3A127850 






3A127860 






3A127870 




• 


3A127880 






3A 12 7890 




• 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



erne 

ADDR 

0208 

0209 

C2DA 

02 OC 

02DE 

02DF 

02E1 



02E2 
02E3 
02E4 
02E5 
0.2 E 7 
02E9 
02EA 
02EC 

02ED 
02EE 
02EF 
02F0 
02F2 
02F4 
02F5 
02F7 

02F8 
02F9 
02FA 
02FB 
02F0 
02 FF 
0300 
0302 

0303 
0304 
0305 
0306 
0307 
0308 
0309 
0308 
0300 
030E 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 



DATA OR 
INSTRUCT 

C039 
1810 

4C18 02DF 
4400 OF 69 
30 6A 

4400 0FC4 
70 F6 

C030 
180F 
F02F " 
4C18 02EA 
4400 OF 69 
3066 

4400 0FC4 
70F5 

C027 
1801 
F026 

4C18 02F5 
4400 OF 69 
306C 

4400 0FC4 
70F5 

CO 10 
1801 
F01C 

4C18 0300 
4400 0F69 
306D 

4400 0FC4 
70F5 

COOF 

1801 

1802 

1804 

1808 

FOOB 

4C18 030E 

4400 0F69 

306E 

4400 0FC4 

70F2 

7006 

FFFF 

8000 

0001 

A AAA 

5555 

2 AAA 



•••••••••••••••••♦••••••••••••••••••••♦••♦•••a 

•LA- OPER- 
10* »BEL AT10N FT OPERANDS C REMARKS ID£SEQi AT RIGHT 



A280 



G280 



LD 

SRA 

8SC 

BSI 

DC 

BSI 

MOX 



N280 

16 

G280,t- 

FOOO 

/306A 

F005 

A280 



BRANCH ON ZERO 

SRA 16 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



A261 LO N2B1 LO /8000 

SRA 15 NOM Af/0001 

EOR N282 ZERO MITH /OOOl 

BSC L G281,£- BRANCH ON ZERO 

BSI L FOOO SRA 15 FAILED 

OC /306B ERR 10 

G281 BSI L F005 CK LOCK ON ERROR 

MOX A281 LOOP 

A282 LD N283 LO /AAA A 

SRA 1 NOM AH/5555 

EOR N28h ZERO MITH /5555 

BSC L G282,£- BRANCH ON ZERO 

BSI L FOOO SRA 1 FAILED 

DC /306C ERR ID 

6282 BSI L F005 CK LOCK ON ERROR 

MDX A2B2 LOOP 

A283 LO N284 LO Z5555 

SRA 1 NOM AH/2AAA 

EOR N285 ZERO MITH /2AAA 

BSC L 6263, t- BRANCH ON ZERO 

BSI L FOOO SRA 1 FAILED 

DC /306D ERR ID 

G283 BSI L F005 CK LOCK ON ERROR 

MOX A283 LOOP 



A 284 



G284 



N280 
N2S1 
N2S2 
N283 
N284 
N285 



LO 

SRA 

SRA 

SRA 

SRA 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

OC 

OC 

OC 

DC 

DC 

DC 



N281 

1 

2 

4 

8 

N282 

G284,£~ 

FOOO 

/306E 

F005 

A284 

A2C0 

/FFFF 

/8000 

/OOOl 

/AAAA 

/5555 

/2AAA 



LO /8000 

NOM A* /4000 

A# /1000 

AC/0100 

A 8 /OOOl 

ZERO MITH /OOOl 

BRANCH ON ZERO 

COMB SRA FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



TEST OF ANO FUNCTION 



CORE DATA OR »LA- OPER- 

AOOR INSTRUCTION »BEL ATION FT OPERANDS C REMARKS ID£SEQf AT RIGHT 

0318 C029 A2C0 LD N2C0 LD /OOOO 

0319 E028 ANO N2C0 AND /OOOO 



PART NO. 2191204 
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3A1 27900 

3A 12 79 10 

3A1 27920 

3A127930 

3A127940 

3A127950 

3A127960 

3A127970 

3A1 27980 

3A 12 7990 

3A 128000 

3A128010 

3A128020 

3A 128030 

3A1 28040 

3A 12 8050 

3A12B060 

3A128070 

3A1 28080 

3A 12 8090 

3A128100 

3A 128110 

3A128120 

3A 128130 

3A128140 

3A128150 

3A12B160 

3A 128 170 

3A128180 

3A 128190 

3A128200 

3A12B210 

3A1 28220 

3A 12 82 30 

3A128240 

3A128250 

3A128260 

3A 128270 

3A128280 

3A 128290 

3A128300 

3A 128310 

3A 128 320 

3A 120330 

3A128340 

3A1283SO 

3A128360 

3A 12 8370 

3A 120380 

3A 128390 

3A128400 

3A 12 8410 

3A128420 

3 A 12 8430 

3A12B440 

3A 12 8450 

3A1 28460 

3A 128470 

3A128480 

3A12S490 

3A128500 

3A128510 

3A128520 

3A128530 

3A128540 

3A128550 

3A128560 

3A12B570 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
41S490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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21A 
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G i 

•1 


A 


IBM 


MAINTENANCE 


DIAGNOSTIC PROGRAM 


FOR 


THE 


1130 SYSTEM 
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J 
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• 






















PAGE 22A 






CPU 


FUNCTION TEST 
















CPU 


FUNCTION TEST 
















1 






031* 





4C18 


031F 




BSC 


L 


G2C0.C- 


BRANCH ON ZERO 


3A128S80 





• 




0366 





FFFF 




N302 


OC 




/FFFF 




3A129260 


1 






031C 





4400 


0F69 




BSI 


L 


FOOO 


ANO OF AND FAILEO 


3A128590 





• 












• 










3A 129270 








031E 





306 F 






DC 




/306F 


ERR 10 


3A128600 












• 






TEST 


OF RTE 16 OPERATION 


3A129280 


1 






031F 





4400 


0FC4 


62C0 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128610 
















• 










3A129290 








0321 





70F6 






MOX 




A2C0 


LOOP 


3A128620 


• 


• 












•»»•»»•»»••»»•«»*••*»•»»••»»»•»•»»«»»•»•*»»»»* 


3A129300 
















»»»»»•»»»»»•••»#»•»»»»»»»»»»»•»»»»»»»»*»»••♦* 


3A12B630 




»»»»»•»••««»*»»*»»»»*»»»*»•»»»»»»»»»»»*»*•»»»»»»»»*»»•»•»»•••*»»*»•*»»» 


3A129310 


1 






0322 





COIF 




A2C4 


ID 




N2C0 


LD /OOOO 


3A1 28640 








CORE 




DAT* 


OR 


•LA- 


OPER- 








3A129320 








0323 





E01F 






ANO 




N2C2 


LD /FFFF 


3A128650 




• 




ADDR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS C REMARKS IDCSEOf AT RIGHT 


3A129330 








0324 





4C18 


0329 




BSC 


L 


G2C4, t- 


BRANCH ON ZERO 


3A128660 


• 




*••••••••*•••••••••••••••«••••*•••••••*•*•••••••*••••*••••*•••••••••*•• 


3A 129 340 


1 






0326 





4400 


OF 69 




BSI 


L 


FOOO 


AND OF ANO 1 FAILED 


3A128670 








0367 





C016 




A340 


LD 




N340 


LO /OOOO 


3A129350 








0328 





3070 






OC 




/307O 


ERR ID 


3A128680 




• 




0368 





18D0 






RTE 




16 


PLACE /OOOO IN REG 


3A129360 








0329 





4400 


0FC4 


G2C4 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128690 







0369 





C015 






LD 




N341 


LD /FFFF 


3A129370 


1 






032B 





70F6 






MDX 




A2C4 


LOOP 


3A128700 








036A 





18D0 






RTE 




16 


NOW At/0000 Of/FFFF 


3A1 29380 
















••a****************************************** 


3A 128710 








036B 





4C18 


0370 




BSC 


L 


G340,t- 


BRANCH ON ZERO 


3A129390 








032C 





C016 




A2C8 


LO 




N2C2 


LD /FFFF 


3A128720 





• 




0360 





4400 


OF 69 




BSI 


L 


FOOO 


ALL THRU FAILEO 


3A129400 


3 






0320 





E014 






ANO 




N2C0 


AND /OOOO 


3A128730 








036F 





3076 






DC 




/3076 


ERR ID 


3A129410 








032E 


6 


4C1S 


0333 




BSC 


L 


G2C8*t- 


BRANCH ON ZERO 


3A128740 








0370 





4400 


0F9B 


G340 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 29420 








0330 





4400 


OF 69 




BSI 


L 


FOOO 


ANO OF 1 AND FA 1 LEO 


3A128750 


c 


t 




0372 





70 F4 






MDX 




A340 


LOOP 


3A129430 


3 






0332 





3071 






DC 




/3071 


ERR ID 


3A128760 








0373 





18D0 






RTE 




16 


NOW Af/FFFF Oi/0000 


3A129440 








0333 





4400 


0FC4 


G2C8 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128770 








0374 





FOOA 






EOR 




N341 


ZERO WITH /FFFF 


3A 129450 








0335 





70F6 






MDX 




A2C8 


LOOP 


3A128780 





• 




0375 





4C18 


037A 




BSC 


L 


G342.C- 


BRANCH m ZERO 


3A129460 
















»»»»»•*•»•»»»»»»»»»•»•»»**»»»»*»»*»»»»»»•»*»» 


3A 128790 








0377 





4400 


0F69 




BSI 


L 


FOOO 


ALL 1 THR" Q FA!! ED 


3A 129470 








0336 





COOC 




A2CC 


LO 




N2C2 


LO /FFFF 


3*128800 








0379 





3077 






DC 




/3077 


ERR 10 


3A129480 








0337 





EOOB 






ANO 




N2C2 


ANO /FFFF 


3A128810 





• 




037A 





4400 


0FC4 


G342 


BSI 


L 


F005 


CK LOCK ON EH.-j... 


3A 129490 








0330 





FOOA 






EOR 




N2C2 


ZERO WITH /FFFF 


3A128820 








037C 





70EA 






MOX 




A340 


LOOP 


3A129500 








0339 





4C18 


033E 




BSC 


L 


G2CCC- 


BRANCH ON ZERO 


3A128830 








0370 





7002 






MDX 




A380 


EXIT TO NEXT ROUTINE 


3A 1295 10 








033B 





4400 


0F69 




BSI 


L 


FOOO 


AND OF 1 ANO 1 FAILED 


3A1 28840 





t 




037E 





OOOO 




N340 


DC 




/OOOO 




3A1 29520 








0330 





3072 






DC 




/3072 


ERR ID 


3A128850 








037F 





FFFF 




N341 


OC 




/FFFF 




3A129530 








033E 





4400 


0FC4 


G2CC 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128B60 
















• 










3A129S40 








0340 





70F5 






MOX 




A2CC 


LOOP 


3A128870 





• 












• 






TEST 


OF SRT OPERATION 


3A129S50 








0341 





7002 






MDX 




A300 


EXIT TO NEXT ROUTINE 


3A128880 
















• 










3A129560 








0342 





0000 




N2C0 


DC 




/OOOO 




3A128890 
















»»»»•»»••»•**•»»**»»*****•»»»•»»»»«»»»»»»*»•* 


3A129570 








0343 





FFFF 




N2C2 


DC 




/FFFF 




3A128900 





1 




0380 





C055 




A380 


LO 




N380 


LD /8000 


3A129580 
















• 










3 A 128910 






0381 





18A0 






SRT 




32 


NOW Af/FFFF Qt/FFFF 


3A 129590 
















• 






TEST 


OF OR FUNCTION 


3A12B920 




. 




0382 





F054 






EOR 




N381 


EOR IN /FFFF 


3 Al 29600 
















• 










3A 12 89 30 







0383 





4C18 


0388 




BSC 


L 


G380.&- 


BRANCH ON ZERO 


3A129610 
















•••••a**************************************** 


3A128940 








0385 





4400 


OF 69 




BSI 


L 


FOOO 


SRT 32-A REG FAILED 


3A129620 








*»*»»»»*»»»»»»»•»»»»»»»»»»»»*»»»»»»»»»»»•»»»•*•»»•*»»»»«»»»•»•*»*»»»»»» 


3A128950 








0387 





3078 






OC 




/3078 


ERR ID 


3A 129630 








COKE 




DATA OR 


*LA- 


OPER- 








3A128960 





• 




0388 





4400 


0F98 


6380 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A129640 









AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


e REMARKS IDCSEQf AT RIGHT 


3A 12 8970 








038A 





70F5 






MOX 




A380 


LOOP 


3A 129*50 








••*•»*•••••»*••*••••••••••*»••••■••*••••»•*••••••*••»**•••••*•*••••*•*• 


3A1 28980 








0388 





18D0 






RTE 




16 


NOW Af/FFFF 08/0000 


3A129660 








0344 





CO 20 




A300 


LO 




N300 


LO /OOOO 


3A128990 





• 




038C 





F04A 






EOR 




N381 


EOR IN /FFFF 


3A 129670 









0345 





E81F 






OR 




N300 


OR /OOOO 


3A129000 








038D 





4C18 


0392 




BSC 


L 


G382.C- 


BRANCH ON ZERO 


3A1296S0 








0346 





4C1B 


034B 




BSC 


L 


G300,t- 


BRANCH ON ZERO 


3A 1290 10 








038F 





4400 


0F69 




BSI 


L 


FOOO 


SRT 32-0 REG FAILED 


3A129&30 









0348 





4400 


0F69 




BSI 


L 


FOOO 


OR OF AND FAILED 


3A129020 





• 




0391 





3079 






OC 




/3079 


ERR ID 


3A12970S 






034A 





3073 






DC 




/3073 


ERR ID 


3A129030 








0392 





4400 


0FC4 


G382 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A12971© 








034B 





4400 


0FC4 


G300 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A129040 








0394 





70EB 






MDX 




A380 


LOOP 


3A129720 








0340 





70 F6 






MDX 




A300 


LOOP 


3A 129050 


• 


• 












*••••••••••*•••••**••••••••••»•••*•****•••••• 


3A129730 
















*•••• 


»*«»»»» 


•*»»•*»»»»»*•»••**»»»»»»»**»»** 


3A129060 








0395 





C042 




A384 


LO 




N382 


LD /4000 


3A1 29740 








034E 





C016 




A302 


LO 




N300 


LD /OOOO 


3A129070 








0396 





18A0 






SRT 




32 


NOW Af/OOOO 00/0000 


3A 129750 








034F 





E816 






OR 




N302 


OR /FFFF 


3A129080 


• 


• 




0397 





4C18 


039C 




BSC 


L 


G384.C- 


BRANCH ON ZERO 


3A129760 








0350 





F015 






EOR 




N302 


ZERO WITH /FFFF 


3A 129090 




t 




0399 





4400 


0F69 




BSI 


L 


FOOO 


SRT 32-A REG FAILED 


3A 129770 








0351 





4C1B 


0356 




BSC 


L 


6302, C- 


BRANCH ON ZERO 


3A129100 








039B 





307A 






DC 




/307A 


ERR ID 


3A1 29780 








0353 





4400 


0F69 




BSI 


L 


FOOO 


OR OF ANO 1 FAILED 


3A 1291 10. 


9 


• 




039C 





4400 


0FC4 


G384 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 129 790 








0355 





3074 






DC 




/3074 


ERR 10 


3A129120 








039E 





70F6 






MDX 




A384 


LOOP 


3 Al 29800 








0356 





4400 


0FC4 


G302 


BSI 


L 


F005 


CHECK LOOP SMITCH 


3A 129130 








039F 





1800 






RTE 




16 


NOW Af/OOOO 08/0000 


3A 129810 




1 




0358 





70F5 






MDX 




A302 


LOOP 


3A129140 





• 




03A0 





4C18 


03A5 




BSC 


L 


G386,£- 


BRANCH ON ZERO 


3A 129*20 
















»»»»»»»»»»»»»•»»»»**»»*»»»»•»»•»»«»*«*»»•»•»» 


3A129150 








03A2 





4400 


OF 69 




BSI 


L 


FOOO 


SRT 32-0 REG FAILED 


3A129830 








0359 





COOC 




A 304 


LO 




N302 


LO /FFFF 


3A129160 








03A4 





307 8 






DC 




/307B 


ERR ID 


3A1 29840 




I 




035A 





E80B 






OR 




N302 


OR /FFFF 


3A 129 170 





• 




03A5 





4400 


0FC4 


6386 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 129850 








035B 





FOOA 






EOR 




N302 


EOR IN /FFFF 


3A129180 








03A7 





70E0 






MDX 




A384 


LOOP 


3A129860 








035C 





4C18 


0361 




BSC 


L 


G304,t- 


BRANCH ON ZERO 


3A 129 190 
















»*»»»»»»*»*»«»»»»»•♦»»»*»»»»»»»•»»*»*»•»•»»»* 


3A129870 




1 




035E 





4400 


0F69 




BSI 


L 


FOOO 


OR OF 1 ANO 1 FAILEO 


3A129200 





• 




03A8 





C030 




A388 


LD 




N383 


LD /5555 


3A1 29880 








0360 





3075 






DC 




/3075 


ERR 10 


3A 1292 10 








03A9 





188F 






SRT 




15 


NOW Af/OOOO Of/0000 


3A129890 








0361 





4400 


0FC4 


G304 


BSI 


L 


F005 


CK LOCK ON ERRCR 


3A129220 








03AA 





4C18 


03AF 




BSC 


L 


6388, t- 


BRANCH ON ZERO 


3A1 29900 




t 




0363 





70F5 






MDX 




A304 


LOOP 


3A129230 





• 




03AC 





4400 


OF 69 




BSI 


L 


FOOO 


SRT 15-A REG FAILEO 


3A129910 








0364 





7002 






MDX 




A340 


EXIT TO NEXT ROUTINE 


3A129240 








03AE 





307C 






DC 




/307C 


ERR 10 


3A129920 




1 




0365 





0000 




N300 


OC 




/OOOO 




3A 129250 


• 


• 




03AF 





4400 


0F98 


G388 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A129930 




i 


DATE 02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG6B 


PROG 10 03A1-1 





• 


DATE 02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 


PROG ID 03A1-1 




1 

1 


EC 


NO. 415490 415490C 


419643 


420403 420403A 


PAGE 22 


• 


• 

• 


EC NO. 415490 415490C 


419643 


420403 420403* 


PAGE 22A 





IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



A388 

16 

N384 

G38A.C- 

FOOO 

/307D 

FOOS 

A388 

CORE DATA OR »LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IDtSEO* AT RIGHT 



0381 70F6 


MOX 




0382 1800 


RTE 




0383 F026 


EOR 




03B4 4C18 03B9 


BSC 


L 


03B6 4400 0F69 


BSI 


L 


0388 3070 


DC 




03B9 4400 0FC4 


G38A BS! 


L 


03BB 70EC 


MOX 





LOOP 

NOW Af/AAAA 08'OOOG 

ZERO WITH /A AAA 

BRANCH ON ZERO 

SRT 15-0 REG FAILED 

ERR 10 

CK LOCn ON ERROR 

LOOP 



03BC 





C01C 




A38C 


LD 




N383 


LD /5555 


03B0 





1880 






SRT 







NOW AH/5555 08/0000 


03BE 





1882 






SRT 




2 


NOW A8/1555 08/4000 


03BF 





1884 






SRT 




4 


/0155 /5400 


03C0 





1886 






SRT 




6 


/0005 /5550 


03C1 





1888 






SRT 




8 


/OOOO /0555 


03C2 





188A 






SRT 




10 


/OOOO /0001 


03C3 





4C18 


03C8 




BSC 


L 


G38CC- 


BRANCH ON ZERO 


03C5 





4400 


0F69 




BSI 


L 


FOOO 


SERIES SRT FAILED 


03C7 





307 E 






DC 




/307E 


ERR ID 


03C8 





4400 


0F98 


G38C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


03CA 





70F1 






MOX 




A38C 


LOOP 


03CB 





1800 






RTE 




16 


NOW A8/0001 08/0000 


03CC 





FOOE 






EOR 




N385 


ZERO WITH /0001 


03CD 





4C18 


0302 




BSC 


L 


G38E.C- 


BRANCH ON ZERO 


03CF 





4400 


OF 69 




BSI 


L 


FOOO 


SERIES SRT FAILEO 


0301 





30 7F 






DC 




/307F 


ERR ID 


03D2 





4400 


0FC4 


G38E 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


03D4 





70E7 






NDX 




A38C 


LOOP 


0305 





7006 






MDX 




A3C0 


EXIT TO NEXT ROUTINE 


0306 





8000 




N380 


DC 




/8000 




0307 





FFFF 




N381 


DC 




/FFFF 




03D8 





4000 




N382 


DC 




/4000 




03D9 





5555 




N383 


DC 




/5555 




03DA 





AAAA 




N384 


DC 




/AAAA 




0308 





0001 




N385 

• 
• 


DC 




/0001 
















TEST 


OF RTE OPERATION 










*»»»»**»»»»»»»»»»»»**»»»»»»»»»«»»»»»»»»»•»»** 


03DC 





C02F 




A3C0 


LO 




N3C1 


LD /AAAA 


03DD 





18D0 






RTE 




16 


NOW AH/0000 08/ AAAA 


030E 





C02C 






LD 




N3C0 


NOW A#/5555 08/AAAA 


03DF 





18CF 






RTE 




15 


NOW A8/5554 08/AAAB 


03E0 





F02E 






EOR 




N3C4 


ZERO WITH /5554 


03E1 





4C18 


03E6 




BSC 


L 


G3C0.C- 


BRANCH ON ZERO 


03E3 





4400 


OF 69 




BSI 


L 


FOOO 


RTE 15-0 TO A FAILED 


03E5 





3080 






DC 




/3060 


ERR ID 


03E6 





4400 


0F98 


G3C0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


03E8 





70F3 






MDX 




A3C0 


LOOP 


03E9 





1800 






RTE 




16 


NOW A8/AAAB 08/5554 


03EA 





F025 






EOR 




N3C5 


ZERO WITH /AAAB 


03EB 





4C18 


03F0 




BSC 


L 


G3C2.6- 


BRANCH ON ZERO 


03ED 





4400 


OF 69 




BSI 


L 


FOOO 


RTE 15- A TO FAILED 


03EF 





3081 






DC 




/3081 


ERR ID 


C3F0 





4400 


0FC4 


G3C2 


BSI 


L 


F005 


CK LOCK ON ERROR 


03F2 





70 E9 






MDX 




A3C0 


LOOP 



CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *6EL ATION FT OPERANDS £ REMARKS IOCSEQ* AT RIGHT 

03F3 C01A A3C4 LD N3C3 LD /8000 

03F4 1800 RTE 16 NOW A8/XXXX 08/8000 

03F5 C017 LD N3C2 LD /OOOO 



PART NO. 2191204 
PACE 23 



3A129940 
SA12995Q 
3A1 29960 
3A129970 
3A129980 
3A129990 
3A1 30000 
3A130010 
3A130020 
3 A 130030 
3A1 30040 
3A 130050 
3 A 130060 
3A130070 
3A1 30080 
3A 130090 
3A130100 
3A130110 
3 Al 30120 
3A130130 
3AI 30140 
3A130150 
3A1 30160 
3A130170 
3A130180 
3A 130 190 
3A1 30200 
3A130210 
3A130220 
3A130230 
3A130240 
3A130250 
3A1 30260 
3A130270 
3A1 30280 
3A 130290 
3A 130300 
3A130310 
3 Al 30320 
3A130330 
3A130340 
3A130350 
3A1303&0 
3A130370 
3A1 30380 
3A 130390 
3A1 30400 
3A130410 
3A1 30420 
3A 130430 
3 A 130440 
3A130450 
3A1 30460 
3A 130470 
3 Al 30480 
3A 130490 
3A1 30500 
3A130510 
3A13O520 
3A 1305 30 
3A130540 
3A 1305 50 
3A 130560 
3A130570 
3A1 30580 
3A130590 
3A1 30600 
3A130610 



1 

c 

c 
c 
c 
c 

c 






o 

o 



c 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
23 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 23A 








03F6 


8 


18C0 






RTE 







NOW Af/OOOO 08/8000 


3A130620 






03F7 





180F 






RTE 




31 




3A 130630 






03F8 





F018 






EOR 




N3C6 


ZERO WITH /0001 


3 Al 30640 






03F9 


o 


4C18 


G3FE 




BSC 


L 


G3C4.E- 


BRANCH ON ZERO 


3A 130650 






03FB 





4400 


OF 69 




BSI 


L 


FCOO 


SERIES RTE FAILEO 


3A 130660 






03FD 





3082 






DC 




/3082 


ERR ID 


3A 130670 






03FE 





4400 


0F98 


G3C4 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 30680 






040C 





70F2 






MDX 




A3C4 


LOOP 


3A130690 






0401 





1800 






RTE 




16 


NOW A-/0000 0-/0000 


3A1 30700 






0402 





4C18 


0407 




BSC 


L 


G3C6tt- 


BRANCH ON ZERO 


3*130710 






0404 





4400 


OF 69 




BSI 


L 


FOOO 


SERIES RTE FAILEO 


3A1 30720 






0406 





3083 






DC 




/3083 


ERR ID 


3A130730 






0407 





4400 


0FC4 


G3C6 


BSI 


L 


F005 


CK LOCK ON ERfc )R 


3A1 30740 






0409 





70E9 






MDX 




A3C4 


LOOP 


3A130750 






04QS 





7007 






KDX 




A400 


EXIT TO NEXT ROUTINE 


3A1 30760 






0408 





5555 




N3C0 


DC 




/5555 




3A130770 






040C 





AAAA 




N3C1 


DC 




/AAAA 




3A1 30780 






040D 





OOOO 




N3C2 


DC 




/OOOO 




3A 130790 






040E 





8000 




N3C3 


DC 




/8000 




3A1 30800 






040F 





5554 




N3C4 


DC 




/5554 




3A130B10 






0410 





AAAB 




N3C5 


DC 




/AAAB 




3A1 30820 ■> 






0411 





0001 




N3C6 

• 
• 


DC 




/0001 

TEST 


OF SLA OPERATION 


3 A X 30830 
3A1 30840 
3A 130850 
3A1 30860 














***«**»«**••»*» *«.»«•«•*•«*••*»**«*•« ***«•»••• 


3A 130870 






0412 





C400 


0486 


A400 


LD 


L 


N400 


LD /FFFF 


3A1 30880 






0414 





1800 






RTE 




16 


NOW A8/XXXX 08/FFFF 


3A 130890 






0415 





C400 


04B6 




LD 


L 


N400 


LD /FFFF 


3A1 30900 






0417 





1010 






SLA 




16 


NOW At/0000 08/FFFF 


3A 130910 






0418 





4C02 


041D 




BSC 


L 


G404.C 


BR ON CARRY 


3A1 30920 






041A 





4400 


OF 69 




BSI 


L 


FOOO 


SLA li-CARRY FAILEO 


3A1 30930 






041C 





3085 






DC 




/3085 


ERR ID 


3A1 30940 






0410 





4400 


0F98 


G404 


BSI 


L 


FOOE 


CK LOCK ON ERROR 
LOOP 


3A 130950 






041F 





70F2 






MDX 




A400 


3A1 30960 






0420 





4C18 


0425 




BSC 


L 


6400,6- 


BRANCH ON ZERO 


3A130970 






0422 





4400 


0F69 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


3A1 30980 






0424 





3084 






DC 




/3084 


ERR ID 


3A 130990 






0425 





4400 


0F98 


G400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131OO0 


1 




0427 





70 E A 






MOX 




A400 


LOOP 


3A131010 






0428 





1800 






RTE 




16 


NOW A8/FFFF 08/0000 


3A1 31020 






0429 





F400 


04B& 




EOR 


L 


N400 


ZERO WITH /FFFF 


3A131030 






0428 





4C18 


0430 




BSC 


L 


G406.C- 


BRANCH ON ZERO 


3A1 31040 






0420 





4400 


OF 69 




BSI 


L 


FOOO 


SLA 16-AFFECTF.D REG 


3A 13 1050 






042F 





3086 






DC 




/3086 


ERR 10 


3A1 31060 


i 




0430 





4400 


0FC4 


G406 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3 A 13 1070 






0432 





70DF 






MOX 




A400 


LOOP 


3A1 31080 














••«»•******» *»••*••*****•*•••**«••••** ******* 


3 A 13 1090 


l 




•*•***•••••*•*•**••••••••**•••♦•••••*••••••*•••••*•••••••••*•*•*•••••** 


3A1 31100 






CORE 




DATA OR 


•LA- 


OPER- 








3A131110 






ADDR 




INSTRUCTION 


*6EL 


ATION 


FT 


OPERANDS 


E, REMARKS IOCSEOf AT RIGHT 


3A1 31120 


1 




»»»»*»»*»*»»»»»*»»*»»*•**•*»»»»»»»»»•»»•»»•»»•»»»»»*»»»»•»»»»»•»••***•» 


3A131130 






0433 





C400 


0488 


A408 


LO 


L 


N405 


LD /OOOO 


3A131140 






0435 





1800 






RTE 




16 


NOW A8/XXXX 08/0000 


3A13U50 


1 




0436 





C400 


04BC 




LO 


L 


N406 


/FFFE /OOOO 


3A13U60 






0438 





1010 






SLA 




16 


/OOOO /OOOO 


3A13UT0 






0439 





4C02 


043C 




BSC 


L 


G407.C 


BR ON CARRY 


3A1 311*0 


( 




0438 





7003 






MDX 




G40C 




3A131190 






043C 





4400 


OF 69 


G407 


BSI 


L 


FOOO 


SLA 16- CARRY FAILED 


3A1 31200 






043E 





3088 






DC 




/3088 


ERR ID 


3A131210 






043F 





4400 


0F98 


G40C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 31220 






0441 





70F1 






MOX 




A408 


LOOP 


3A131230 






0442 





4C18 


0447 




BSC 


L 


G408,t- 


BRANCH ON ZERO 


3A131240 






0444 





4400 


OF 69 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


3A 13 1250 






0446 





3087 






DC 




/3087 


ERR ID 


3A1 31260 






0447 





4400 


0F98 


G408 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131270 






0449 





70E9 






MDX 




A408 


LOOP 


3A1 31280 






044A 





1800 






RTE 




16 


NOW Af/OOOO Of /OOOO 


3A 13 1290 




DATE 


02JAN66 01MAY66 
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044B 





4C18 


0450 




BSC 


L 


G40E.C- 


BRANCH ON ZERO 


3A 131300 






0440 





4400 


0F69 




BSI 


L 


FOOO 


SLA 16-AFFECTEO C REG 


3A131310 






044F 





3089 






DC 




/3089 


ERR ID 


3A131320 






0450 





4400 


0FC4 


G40E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131330 






0452 





70EO 






MDX 




A408 


LOOP 


3A131340 














••••••••ft************************************ 


3A131350 






0453 





C067 




B400 


LO 




N405 


LD /OOUO 


3A131360 






0454 





1800 






RTE 




16 


NOM At/XXXX Ot/0000 


3A131370 






0455 





C063 






LO 




N403 


LD /AAAA 


3A131380 






0456 





1001 






SLA 




1 


NOM At/5554 08/0000 


3A131390 






0457 





4C02 


045C 




BSC 


L 


H402.C 


BRANCH ON CARRY 


3A131400 






0459 





4400 


OF 69 




BSI 


L 


FOOO 


SLA 1-CARRY FA I LEO 


3A131410 






045B 





308 B 






OC 




/308B 


ERR 10 


3A131420 






045C 





4400 


0F98 


H402 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131430 






045E 





70F4 






MDX 




8400 


LOOP - 


3A1 31440 






04 5F 





F05A 






EOR 




N404 


ZERO MITH Z5554 


3A131450 






0460 





4CI* 


0465 




BSC 


L 


H400tC- 


BRANCH ON ZERO 


3 Al 31460 






0462 





4400 


0F69 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


3A131470 






0464 





308A 






OC 




/308A 


ERR ID 


3A1 31480 






0465 





4400 


0F98 


H400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 13 1490 






0467 





70E6 






MQX 




B400 


LOOP 


3A131500 






046S 





1800 






RTE 




16 


NOM At/0000 Ot/5554 


3A131510 






0469 





4C18 


046E 




BSC 


L 


H404.C- 


BRANCH ON ZERO 


3A131520 






04 6B 





4400 


OF 69 




BSI 


L 


FOOO 


SRA 1-AFFECTED REG 


3A131530 






0460 





308C 






OC 




/308C 


ERR ID 


3A131540 






046E 





4400 


0FC4 


H404 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131550 






0470 





70E2 






MOX 




B400 


LOOP 


3A131560 


.j 












»**«»»•»»»»•»»«»•*•»•••••»••»»••»•»••»»»•*•»» 


3A131570 






0471 





C049 




B406 


LD 




N405 


LD /OOOO 


3A1 31580 






0472 





18 DO 






RTE 




16 


NOW At/XXXX Ot/0000 


3A131590 






0473 





C044 






LD 




N402 


LO /5555 


3A131600 






0474 





1001 






SLA 




1 • 


NOW Ai/AAAA Ot/0000 


3A131610 






0475 





4C02 


0478 




BSC 


L 


H407.C 


BR ON CARRY 


3A131620 






0477 





7003 






MDX 




H405 




3A131630 






047 B 





4400 


OF 69 


H407 


BSI 


L 


FOOO 


SLA 1-CARRY FAILED 


3A1 31640 






04 7 A 





308E 






DC 




/308E 


ERR 10 


3A131650 






04 7B 





4400 


0F96 


H405 


BSI 


L 


FOOE 


CK LOCK ON ERROR ' 


3A1 31660 






047D 





70F3 






MDX 




B406 


LOOP 


3A131670 






047E 





F03A 






EOR 




N403 


ZERO NITH /AAAA 


3A1 31680 






047F 





4C18 


0484 




BSC 


L 


H406.S- 


BRANCH ON ZERO 


3A 13 1690 






0481 





4400 


0F69 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


3A131700 






0483 





3080 






DC 




/308D 


- ERR ID 


3A131710 






0484 





4400 


0F9B 


H406 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131720 






0486 





70EA 






MDX 




B406 


LOOP 


3A131730 






0487 





1800 






RTE 




16 


NOW At/0000 Ot/AAAA 


3A131740 






0488 





4C16 


048D 




BSC 


L 


H408tC- 


BRANCH ON ZERO 


3A131750 






048 A 





4400 


0F69 




BSI 


L 


FOOO 


SLA 1-AFFECTED REG 


3A131760 






048C 





30 8F 






OC 




/308F 


ERR ID 


3A 13 1770 






0480 





4400 


0FC4 


H408 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131780 






048F 





70E1 






MOX 




B406 


LOOP 


3A131790 














•«••»•• ••**•••••*****••••••••****•*••**•*••** 


3A131800 






»»»*»•»»**»****»*#*»»«#»«»*»»*•»»*••♦»*»****»**»»*»*»»»»»»»»**»***»**** 


3A131810 






CORE 




DATA OR 


*LA- 


OPER- 








3A131820 






ADOR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS t REMARKS IDCSEQt AT RIGHT 


3A131830 






»•»«*»»*»»*»»♦»*»»»»»»»»»»»»•»»*»*»»»»»»»»»•»•»•»•»•»*»»*»»»»*»*»»»»**• 


3A131840 






0490 





C02A 




B40A 


LO 




N405 


LO /OOOO 


3A131S50 






0491 





1800 






RTE 




16 


NOW At/XXXX Ot/0000 


3A1 31860 






0492 





C024 






LD 




N401 


LD /0001 


3A131B70 






0493 





6101 






LDX 


1 


1 




3A1 31880 






0494 





6204 






LDX 


2 


4 




3A 13 1890 






0495 





6303 






LDX 


3 


3 




3A131900 






0496 





1000 






SLA 







NOW At/0001 Ot/0000 


3A131910 






0497 





1100 






SLA 


1 





/0002 /OOOO 


3A131920 






0498 





1002 






SLA 




2 


/0006 /OOOO 


3A131930 






0499 





1200 






SLA 


2 





/0080 /OOOO 


3A1 31940 






049A 





1006 






SLA 




6 


/2000 /OOOO 


3A1319S0 






049B 





1300 






SLA 


3 





/OOOO /OOOO 


3 Al 31960 






049C 





4C02 


04A1 




BSC 


L 


H400.C 


BRANCH ON CARRY 


3A131970 




DATE 


02JAN66 


01MAY66 


15N0V66 


15FEB68 


26AU&68 


PROG ID 


03A1-1 


EC NO. 


415490 


41S490C 


419643 


420403 


420403A 


PAGE 
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049E 


4400 


0F69 




BSI 


L 


FOOO 


COMB SLA-CARRV FAILED 


3A131980 






04A0 


3091 






OC 




/3091 


ERR ID . 


3A 13 1990 






04 A 1 


4400 


0F98 


H400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32000 






04A3 


70EC 






MOX 




B40A 


LOOP 


3A132010 






04A4 


4C18 


04A9 




BSC 


L 


H40A, C- 


BRANCH ON ZERO 


3 Al 32020 






04A6 


4400 


0F69 




BSI 


L 


FOOO 


COMB SLA-A REG FAILED 


3A132030 






04A8 


3090 






OC 




/3090 


ERR ID 


3A1 32040 






04A9 


4400 


0F98 


H40A 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A132050 






04AB 


70E4 






MOX 




B40A 


LOOP 


3 Al 32060 






04AC 


1800 






RTE 




1* 




3A132070 






04AD 


4C18 


04B2 




BSC 


L 


H40E f C- 


BRANCH ON ZERO 


3A1 32080 






04 A F 


4400 


OF 69 




BSI 


L 


FOOO 


COMB SLA-AFFECTED 


3 A 132090 






04B1 


3092 






OC 




/3092 


ERR 10 


3A132100 






04B2 


4400 


0FC4 


H40E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A132110 






04B4 


700B 






MDX 




B40A 


LOOP 


3A132120 > 






04B5 


7007 






MOX 




A440 


EXIT TO NEXT ROUTINE 


3A132130 


, ■ 




04B6 


FFFF 




N400 


OC 




/FFFF 




3A132140 






04B7 


0001 




N401 


DC 




/0001 




3A1321S0 






04B8 


5555 




N402 


DC 




/5555 




3A132160 






04B9 


AAAA 




N403 


OC 




/AAAA 




3A132170 






04BA 


5554 




N404 


OC 




/5554 




3A132180 






04B6 


OOOO 




N405 


OC 




/OOOO 




3A132190 






04BC 


FFFE 




N406 

• 
• 
» 


DC 




/FFFE 

TEST 


OF SLT OPERATION 


3A1 32200 
3A 132210 
3A132220 
3A 132230 












• »»«*»*»**•»•»»•»»»»**»»*»•** »»»•»»*»»»»»**»» 


3A1 32240 






04B0 


C07E 




A440 


LD 




N440 


LO /C001 


3A132250 






04BE 


1800 






RTE 




16 


NOW A«/XXXX OtOt/0001 


3A1 32260 






04BF 


CO 70 






LD 




N441 


LD /OOOO 


3A132270 






04CO 


10A0 






SLT 




32 


/OOOO Of/OOOO 


3A1 32280 






04C1 


4C02 


04C6 




BSC 


L 


&442tC 


BRANCH ON CARRY 


3A132290 






04C3 


4400 


0F69 




BSI 


L 


FOOO 


SLT 32-CARRV FAILED 


3A1 32300 






04C5 


3094 






OC 




/3094 


ERk ID 


3A132310 






04C6 


4400 


0F98 


G442 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32320 






04C8 


70 F4 






MOX 




A440 


LOOP 


3A 132330 






04C9 


4C18 


04CE 




BSC 


L 


&440,£- 


BRANCH ON ZERO 


3A1 32340 






04CB 


4400 


OF 69 




BSI 


L 


FOOO 


SLT 32-A REG FAILED 


3A132350 






04C0 


3093 






DC 




/3093 


ERk ID 


3A1 323*0 






04CE 


4400 


0F98 


G440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1323T0 






0400 


70EC 






MDX 




A440 


LOOP 


3A1 32380 






0401 


1800 






RTE 




16 


NOW At/0000 Ot/0000 


31132390 






0402 


4C18 


04D7 




BSC 


L 


6443, S- 


BRANCH ON ZERO 


3* 132400 






04D4 


4400 


OF 69 




BSI 


L 


FOOO 


SLT 32-0 REG FAILED 


Sai»2410 






0406 


3095 






OC 




/3095 


ERR ID 


3Ai 32420 






04D7 


4400 


0FC4 


G443 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A132430 






0409 


70E3 






MOX 




A440 


LOOP 


3A1 32440 












»«»*»»»»»»»»»»*»••••»•«»*•»»»•»*»»»**»*»»•»** 


3A132450 






»*»»•»»*»•»••»•»•••»****•«»•*••••*•»*»»•»**»*»»•••••*»»*»»»*•*•••••»**• 


3A1 32460 






CORE 


DATA OR 


*LA- 


OPER- 








3A132470 






AOOR 


INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS 


C REMARKS IDCSEQt AT RIGHT 


3A1 32480 






**»**•«»»*»»»*»»•*»»••••»••»•••••»«•»•»••»•••••••»••*•»»»»***•*****•»*• 


3A132490 






04DA 


C063 




A444 


LD 




N442 


LO /FFFF 


3A1 32500 






04DB 


1800 






RTE 




16 


NOM At/XXXX Ot/FFFF 


3A132510 






04DC 


C060 






LD 




N441 


LD /OOOO 


3A1 32520 






0400 


1090 






SLT 




16 


NOM At/FFFF Ot/0000 


3A 132530 


i 




040E 


4C02 


04E1 




BSC 


L 


6446tC 


BR ON CARRY 


3A1 32540 




04E0 


7003 






MOX 




G447 




3A132550 






04E1 


4400 


OF 69 


G446 


BSI 


L 


FOOO 


SLT 16-CARRV FAILED 


3A1 32560 


1 




04E3 


3097 






DC 




/3097 


ERR ID 


3A 132570 




04E4 


4400 


0F98 


G447 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32580 






04E6 


70 F3 






MDX 




A444 


LOOP 


3A 132 590 


1 




04E7 


F056 






EOR 




N442 


ZERO WITH /FFFF 


3A1 32600 




04E8 


4C18 


04ED 




BSC 


L 


G444.&- 


BRANCH ON ZERO 


3A132610 






04EA 


4400 


0F69 




BSI 


L 


FOOO 


SLT 16-A REG FAILED 


3A1 32620 


i 




04EC 


3096 






DC 




/3096 


ERR ID 


3A132630 




04ED 


4400 


0F98 


G444 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32*40 






04EF 


70EA 






MDX 




A444 


LOOP 


3A132650 


f 


DATE 


C2JAN66 1 


11NAV66 


15N0V66 


15FEB68 26AU&6* 
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04F0 





1800 




04F1 





4C18 


04F6 


04F3 





4*00 


OF 69 


04F5 





3098 




04F6 





4400 


0FC4 


04F8 





70E1 




04F9 





C045 




04FA 





1800 




04FB 





C041 




04FC 





108F 




04FD 





4C0Z 


0500 


04FF 





7003 




0500 





4400 


OF 69 


0502 





309 A 




0503 





4400 


0F98 


0505 





70F3 




0S06 





F039 




0507 





4C18 


050C 


0509 





4400 


0F69 


050B 





3099 




050C 





4400 


0F98 


050E 





70EA 




050F 





1800 




0510 





F030 




0511 





4C18 


0516 


0513 





4400 


0F69 


0515 





309B 




0516 





4400 


0FC4 


0518 





70 EO 





G448 



A44A 



644C 



G44D 



G44A 



RTE 




16 


NOW AH/0000 Qf/COOO 


8SC 


L 


G448,£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


SLT 16-0 REG FAILED 


DC 




/3098 


ERR 10 


BSI 


L 


F005 


CK LOCK ON ERROR 


MOX 




A444 


LOOP 


•••••••a******************************* 


ID 




N443 


LD /5555 


RTE 




16 


NOW A»/XXXX 0#/5555 


LD 




N441 


/OOOO /5555 


SLT 




15 


/2AAA /8000 


BSC 


L 


G44CtC 


BR ON CARRY 


MDX 




G440 




BSI 


L 


FOOD 


SLT 15-CARRV FAILED 


OC 




/309A 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MDX 




A44A 


LOOP 


EOR 




N444 


ZERO WITH /2AAA 


BSC 


L 


644 A, £- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


SLT 15-A REG FAILED 


DC 




/3099 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MDX 




A44A 


LOOP 


RTE 




16 


NOW A#/8000 00/0000 


EOR 




N445 


ZERO WITH /8000 


BSC 


I 


G44E,£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


SLT 15-Q REG FAILED 


DC 




/309B 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




A44A 


LOOP 



G44E 



••*•«•*•••••••*••»*«•• *****»*^** ********************** ***••»••**••**••• 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS C REMARKS IDCSEQ* AT RIGHT 





0519 


C022 




B440 


LD 




N440 


LD /0001 




051A 


18D0 






RTE 




16 


NOW AH/XXXX Oi/0001 




051B 


C021 






LD 




N441 


LD /OOOO 




051C 


1080 






SLT 







NOW A*/0000 Oi/0001 




051D 


1081 






SLT 




1 


/OOOO /0002 




051E 


1085 






SLT 




5 


/OOOO /0040 




051F 


1087 






SLT 




7 


/OOOO /2000 




0520 


1089 






SLT 




9 


/0040 /OOOO 




0521 


108A 






SLT 




10 


/OOOO /OOOO 




0522 


4C02 


0527 




BSC 


L 


H443.C 


BR ON CARRY 




0524 


4400 


OF 69 




BSI 


L 


FOOO 


COMB SLT-CARRV FAILED 




0526 


309 D 






DC 




/309D 


ERR 10 




0527 


4400 


0F98 


H443 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0529 


70EF 






MDX 




B440 


LOOP 




052A 


4C18 


052F 




BSC 


L 


H440,£- 


BRANCH ON ZERO 




052C 


4400 


0F69 




BSI 


L 


FOOO 


COMB SLT-A REG FAILE 




052E.0 


309C 






DC 




/309C 


ERR ID 




052F 


4400 


0F98 


H440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0531 


70E7 






MDX 




B440 


LOOP 




0532 


1800 






RTE 




16 


NOW Af/OOOO Of/ OOOO 




0533 


4C18 


0538 




BSC 


L 


H444,£- 


BRANCH ON ZERO 




0535 


4400 


OF 69 




BSI 


L 


FOOO 


COMB SLT-Q REG FAILE 




0537 


309E 






DC 




/309E 


ERR ID 




0538 


4400 


0FC4 


H444 


BSI 


L 


F005 


CK LOCK ON ERROR 




053A 


70DE 






MDX 




B440 


LOOP 




053B 


7006 






MOX 




A480 


EXIT TO NEXT ROUTINE 




05 3C 


0001 




N440 


DC 




/0001 






0530 


0000 




N441 


DC 




/OOOO 






05 3E 


FFFF 




N442 


DC 




/FFFF 






053F 


5555 




N443 


DC 




/S555 






0540 


2AAA 




N444 


DC 




/2AAA 






0541 


8000 




N445 

* 


DC 




/8000 




DATE 


02JAN66 01MAY66 
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EC NO. 
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- U » 




. \ 




c • 


3A1 32660 


1 




3A 132670 


1 




3A1 32680 


C i 




3A 132690 






3A1 32700 






3A132710 


c 




3A1 32720 






3A132730 


c 




3A132740 




3A132750 






3 Al 32760 






3A132770 


c 




3A1 32780 




3A132790 






3A1 32600 


c 




3A132810 






3A132820 






3A132830 


r 




3A1 32840 






3A132850 






3 Al 32860 


o • 


3A132870 


* 


3A1 32880 




3A132890 


C j • 


3 Al 32900 


J 


3A132910 




3A132920 


C 




3A132930 






3 Al 32940 






3*132950 


c 




3A1 32960 






3A132970 






3A1 32980 


o ; • 


3A132990 




3A133000 


i' 


3A133010 


• i. • 


3A1 33020 


f 


3A133030 






3A1 33040 


• 




3A 133050 






3A1 33060 






3A133070 


• 




3 Al 33080 






3 A 133090 






3A133100 


• 




3A133110 






3A133120 






3A133130 


• 




3A133140 






3A133150 






3A133160 


• 




3A133170 




f 


3A133180 






3A133190 


• 




3A133200 






3A133210 




1 


3A133220 


• 




3A133230 






3 Al 33240 






3A133250 


o 




3A133260 






3A133270 






3A133280 







3A133290 






3A1 33300 






3A133310 





'' 


3A1 33320 






3A133330 


• [ • 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 











• 






TEST 


OF STO OPERATION 










»•»»»»»»»•»»»»*»•»»»»»»»»***»»»»»»»»»•»»»»»•» 


0542 





CO 19 




A480 


LD 




N480 


LD /OOOO 


0543 





001A 






STO 




N482 


STO /OOOO 


0544 





CO 18 






LD 




N481 


LD /FFFF 


0545 





C018 






LD 




N482 


LD /OOOO 


0546 





4C18 


054B 




BSC 


L 


G4 80,£- 


BRANCH ON ZERO 


0548 





4400 


OF 69 




BSI 


L 


FOOO 


STO ZEROS FAILED 


054A 





309F 






OC 




/309F 


ERR ID 


054B 





4400 


0FC4 


G480 


BSI 


L 


F005 


CK LOCK ON ERROR 


0540 





70 F4 






MOX 




A480 


LOOP 










*•••*•*•*•«*«••*••**•••••••**•••*•*•*••*••••• 


054E 





COOE 




A482 


LD 




N481 


LD /FFFF 


054F 





000 E 






STO 




N482 




0550 





COOB 






LD 




N480 


LD /OOOO 


0551 





COOC 






LD 




N482 


ID /FFFF 


0552 





FOOA 






EOR 




N481 


ZERO WITH /FFFF 


0553 





4C18 


0558 




BSC 


L 


6482,6- 


BRANCH ON ZERO 


0555 





4400 


0F69 




BSI 


L 


FOOO 


STO ONES FAILED 


0557 





30 A 






DC 




/30A0 


ERR 10 


0558 





4400 


0FC4 


6482 


BSI 


L 


F005 


CK LOCK ON ERROR 


055A 





70F3 






MOX 




A482 


LOOP 


0558 





7003 






MDX 




A4C0 


EXIT TO NEXT ROUTINE 


055C 





OOOO 




N480 


DC 




/OOOO 




0550 





FFFF 




N481 


DC 




/FFFF 




055E 





FFFF 




N4B2 

• 
• 
• 


OC 




/FFFF 

TEST 


OF STS OPERATION 



CORE / DATA OR *LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IO£SEO« AT RIGHT 





055F 





2003 




A4C0 


LOS 




3 






0560 





2000 






LDS 







SET C AND OF OFF 




0561 





285D 






STS 




N4C0 






0562 





C05C 






LD 




N4C0 






0563 





4C18 


0568 




BSC 


L 


G4C0,6- 






0565 





4400 


OF 69 




BSI 


L 


FOOO 


STS FAILED TO STORE 




0567 





30 A 1 






DC 




/30A1 


ERR 10 




0568 





4400 


0FC4 


G4C0 


BSI 


c 


F005 


CK LOCK ON ERROR 




05 6A 





70F4 






MDX 




A4C0 


LOOP 












***»»»******»»»**»****•****«*»*»»*»»»»»»»*»»» 




0568 





COFF 




A4C2 


LO 




A4C2 






056C 





2003 






LOS 




3 






056D 





2851 






STS 




N4C0 






056E 





FOFC 






EOR 




A4C2 






05 6F 





4C18 


0574 




BSC 


L 


H4C3 T C- 


BRANCH ON ZERO 




0571 





4400 


0F69 




BSI 


L 


FOOO 


ACC GONE AFT LDS-STS 




0573 





30A3 






OC 




/30A3 


ERR 10 




0574 





4C02 


0577 


H4C3 


BSC 


L 


H4C2,C 


BR IF CARRY IS NO 




0576 





7003 






MDX 




G4C2 






0577 





4400 


OF 69 


HhC2 


BSI 


L 


FOOO 


STS NOT CLEAR CARRY 




0579 





30 A2 






DC 




/30A2 


ERR 10 




057A 





4400 


0F98 


G4C2 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




057C 





70EE 






MOX 




A4C2 


LOOP 




0570 





4C01 


0580 




BSC 


L 


H4C4.0 


BR IF CARRY IS ON 




057F 





7003 






MDX 




G4C4 






0580 





4400 


OF 69 


H4C4 


BSI 


L 


FOOO 


STS NOT CLEAR OVERFLW 




0582 





30A4 






DC 




/30A4 


ERR ID 




0583 





4400 


0F98 


64C4 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0585 





70E5 






MDX 




A4C2 


LOOP 




0586 





C038 






LO 




N4C0 






0587 





F038 






EOR 




N4C1 






0588 





4C18 


058D 




BSC 


L 


&4C6,£- 


BRANCH ON ZERO 




058A 





4400 


0F69 




BSI 


L 


FOOO 


STS FAILED TO STORE 


OATE 


02 J AN 66 01HAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 415490C 


419643 


420403 


420403A 
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3A1 33340 
34 1 33350 
3 Al 33360 
3A133370 
3A1 33380 
3A 13 3390 
3A1 33400 
3A133410 
3A1 33420 
3A 13 3430 
3A1 33440 
3A 13 3450 
3A1 33460 
3A 13 3470 
3A1 33480 
3A 13 3490 
3A1 33500 
3A133510 
3A1 33520 
3A133530 
3A1 33540 
3A133550 
3A1 33560 
3A 133570 
3A1 33580 
3A 13 3590 
3A1 33600 
3A133610 
3A1 33620 
3A133630 
3A1 33640 
3A 133650 
3 Al 33660 
3A 13 3670 
3A1 33680 
3A 13 3690 
3A1 33700 
3A133710 
3A1 33720 
3A133730 
3A1 337*0 
3A 13 3750 
3A1 33760 
3A133770 
3A1 33700 
3A133790 
3A1 33800 
3A133810 
3A1 33820 
3A 13 3830 
3A1 33840 
3A133850 
3A1 33860 
3A133870 
3A1 33880 
3 A 133890 
3A1 33900 
3A133910 
3A1 33920 
3A 13 3930 
3 Al 33940 
3A 13 3950 
3A1 33960 
3A133970 
3A1 33980 
3A133990 
3A1 34000 
3A 134010 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



DATE 
EC NO. 



058C 





30A5 




058D 





4400 


0FC4 


05eF 





70DB 




0590 





2002 




0591 





2002 




0592 





282C 




0593 





2820 




0594 





C02A 




0595 





F02C 




0596 





4C18 


059B 


0598 





4400 


OF 69 


059A 





30A6 




05?6 





4400 


0F98 


0590 





70F2 




059E 





CO 22 




059F 





4C1B 


05 A4 


05A1 





4400 


OF 69 


05A3 





30A7 




05A4 





4400 


0FC4 


05A6 





70E9 




05A7 





2003 




05A8 





2001 




05A9 





2815 




05AA 





2816 




05AB 





C013 




05AC 





F016 




05AD 





4C18 


05B2 


05AF 





4400 


0F69 


05B1 





30A8 




05B2 





4400 


0F9S 


05B4 





70F2 




05B5 





COOB 




05B6 





4C18 


05BB 


05B8 





4400 


0F69 


05BA 





30A9 




05BB 





4400 


0FC4 


05BD 





70E9 




05BE 





7005 




05BF 





0003 




05C0 





0003 




05C1 





0000 




05C2 





0002 




05C3 





0001 





OC /30A5 ERR ID 
G4C6 6SI L F005 CK LOCK ON ERROR 
MDX A4C2 LOOP 



A4C8 


LDS 




2 






LDS 




2 


SET C ON OF OFF 




STS 




N4C0 


SET /0002 IN N4C0 




STS 




N4C2 


SET /OOOO IN N4C2 




LD 




N4C0 


LD /0002 




EOR 




N4C3 


ZERO WITH /0002 




BSC 


L 


G4C8,t- 


bRANCH ON ZERO 




BSI 


L 


FOOO 


STS FAILED TO STORE 




OC 




/30A6 


ERR ID 


64C8 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




MDX 




A4C8 


LOOP 




LD 




N4C2 


LD /0002 




BSC 


L 


64CA,C- 


BRANCH ON ZERO 




BSI 


L 


FOOO 


STS NOT CLEAR CARRY 




DC 




/30A7 


ERR ID 


G4CA 


BSI 


L 


F005 


CK LOCK ON ERROR 




MDX 




A4C8 


LOOP 


**•*••**•*••«•••**••••••*«•*•******•****•**** 


A4CC 


LOS 




3 






LDS 




1 


SET C-OFF OF - ON 




STS 




N4C0 


SET /0001 IN N4C0 




STS 




N4C2 


SET /OOOO IN N4C2 




LD 




N4C0 


LD /0001 




EOR 




N4C4 


ZERO WITH /0001 




BSC 


L 


G4CC,C- 


BRANCH ON ZERO 




BSI 


L 


FOOO 


STS FAILED TO STORE 




DC 




/30A8 


ERR ID 


G4CC 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




MDX 




A4CC 


LOOP 




LD 




N4C2 


LD STATUS STORED 




BSC 


L 


G4CD.C- 


BRANCH ON ZERO 




BSI 


L 


FOOO 


STS NOT CLEAR OVERFL 




DC 




/30A9 


ERR ID 


G4C0 


BSI 


L 


F005 


CK LOCK ON ERROR 




MDX 




A4CC 


LOOP 




MDX 




A500 


EXIT TO NEXT ROUTINE 


N4C0 


DC 




/0003 




N4C1 


DC 




/0003 




N4C2 


-DC 




/OOOO 




N4C3 


DC 




/0002 




N4C4 

• 
• 


DC 




/0001 

TEST 


OF BSC OPERATION 



CORE DATA OR »LA- OPER- 

AODR INSTRUCTION »8EL ATION FT OPERANDS C REMARKS 1DCSEQ* AT RIGHT 

A500 LOS 3 SET C AND OF ON 

LD /8001 

SK IF OF OFF, PLUSt EVEN, 
• ZERO OR CARRY OFF. 

BSC SKPD-SHOULD NOT 
ERR ID 
G500 BSI L F005 CK LOCK ON ERROR 

LOOP 

•••••••••ft*********************************** 

A502 LDS 3 SET C 6 OF ON 

LD L N501 LD /OOOO 

BSC -OCE SK IF MINUS, OF OFF, CARRY 

• *OFF OR PLUS 

MOX 6502 



05C4 


2003 




05C5 


C400 


0658 


05C7 


482F 




05CB 


7003 




05C9 


4400 


0F69 


05CB 


30AA 




05CC 


4400 


0FC4 


05CE 


70 F5 




05CF 


2003 




05D0 


C400 


0659 


0502 


46 IB 





LDS 




3 


LD 


L 


N500 


BSC 




OCEZC 


MDX 




G500 


BSI 


L 


FOOO 


DC 




/30AA 


BSI 


L 


F005 


MDX 




A500 



05D3 7003 
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3A1 34020 
3A134030 
3A134040 
3A 134050 
3A1 34060 
3A 134070 
3A1 34080 
3A 134090 
3 Al 34100 
3A134110 
3A134120 
3A134130 
3A1 34140 
3A134150 
3A1 34160 
3A 134170 
3A1341B0 
3A134190 
3A1 34200 
3A134210 
3A1 34220 
3A134230 
3A1 34240 
3A134250 
3A1 34260 
3A 134270 
3A1 34280 
3 A 134290 
3A1 34300 
3A134310 
3 Al 34320 
3A 134330 
3A1 34340 
3A 134350 
3A1 34360 
3A134370 
3 Al 34380 
3A134390 
3A1 34400 
3A 134410 
3A1 34420 
3A 134430 
3A1 34440 
3A134450 
3*134460 
3 A 134470 
3A1 34480 
3A134490 
3A1 34500 
3A 1345 10 
3A1 34520 
3A134530 
3A1 34540 
3A 134550 
3A1 34560 
3A 134570 
3A1 34580 
3A 134590 
3A1 34600 
3A 1346 10 
3A1 34620 
3A 134630 
3 Al 34640 
3A 134650 
3A1 34660 
3A134670 
3 A 134680 
3A134690 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 

420403A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



DATE 
EC NO. 



0504 





4400 


0F69 


05D6 





30AB 




05D7 





4400 


0FC4 


05D9 





70F5 




05DA 





2003 




05DB 





C07E 




050C 





2809 




05DD 





4815 




05DE 





7001 




05DF 





7003 




O5E0 





4400 


OF 69 


05E2 





30AC 




05E3 





4400 


0F98 


05E5 





70F4 




05E6 





2000 




05E7 





4801 




OSES 





4801 




05E9 





7001 




05EA 





7003 




05EB 





4400 


0F69 


05ED 





30AD 




05EE 





4400 


0FC4 


05 FO 





70E9 




05F1 





2000 




05F2 





C068 




05F3 





482A 




05 F4 





7001 




05F5 





7003 




05F6 





4400 


OF 69 


05FB 





30AE 




05F9 





4400 


0FC4 


05FB 





70F5 




05FC 





2003 




05F0 





C05A 




05FE 





4C0F 


060F 


0600 





7001 




0601 





7007 




0602 





4400 


OF 69 


0604 





30AF 




0605 





4400 


0F98 


0607 





70F4 




0606 





7006 




0609 





4400 


0F69 


060B 





30B0 




060C 





4400 


0F98 


060E 





70ED 




060F 





F048 




0610 





4820 




0611 





7001 




0612 





7003 




0613 





4400 


0F69 


0615 





3170 




0616 





4400 


0FC4 


0618 





7000 





BSI L FOOO BSC SKPD-SHOULD NOT 

DC /30AB ERR ID 

G502 BSI L F005 CK LOCK ON ERROR 

MDX A502 LOOP 



A504 



G504 



G505 



N507 



G506 



G507 



LDS 

LD 

STS 

BSC 

MDX 

MDX 

BSI 

DC 

BSI 

MOX 

LDS 

BSC 

BSC 

MDX 

MOX 

BSI 

DC 

BSI 

MDX 



3 

N502 

N507 

0-E 

6504 

G505 

FOOO 

/30AC 

FOOE 

A504 

»-» 





G506 

G507 

FOOO 

/30A0 

F005 

A504 



SET C AND OF ON 

LD /8000 

SET /0003 IN N507 

SK IF OF OFF, HUN IS OR EVEN 



BSC FAILED TO SKIP 

ERR 10 

CK LOCK ON ERROR 

LOOP 

SKIP IF OVERFLOW IS OFF 



BSC NOT CLEAR OVERFLN 

ERR ID 

CK LOCK ON ERROR 

LOOP 



•••••••••*••*••*• •*•»••••••*••«**•*•••••••••• 



A508 



G508 



HS08 



LDS 

LD 

BSC 

MOX 

MDX 

BSI 

OC 

BSI 

MDX 





N503 

CCZ 

G508 
H50B 
FOOO 
/30AE 

F005 
A50B 



SET C AND OF OFF 

LD /0001 

SK IF CARRY OFF, PLUS 

• OR ZERO 



BSC FAILED TO SKIP 

ERR ID 

CK LOCK ON ERROR 

LOOP 



«*•••••••«•«••»««••****•*»»***•«*«•■«•••••••** 

A50A LOS 3 SET C AND OF ON 

LD N500 LD /8001 

BSC L G50A,C0CE BR ON NOT PLUS, OF ON, 

* * CARRY ON OR NOT EVEN 

MDX H50A 

MOX J50A 

H50A BSI L FOOO 

DC /30AF 

BSI L FOOE 

MOX A50A 

MDX 650A 

J50A BSI L FOOO 

OC /30B0 

BSI L FOOE 

MDX A50A 

G50A EOR N500 

BSC Z 

MOX HSOB 

MDX K50B 

H50B BSI L FOOO 

OC /3170 

K50B BSI L F005 

MDX A50C 

*#**•»»»•*»»•»»#•»»*»•»»*»#»»***»**»•»*»*»»»»»»••«*»***»■»•»•**»»»*»»**» 

CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS C REMARKS IO£SEO* AT RIGHT 

0619 2003 A50C LDS 3 SET C £ OF ON 

061A C041 LO N504 LD /0004 

061B 4C30 061F BSC L &50C-Z 8R NOT MINUS OR NOT ZERO 

0610 7002 MDX H50C 



BSC FELL THRU 

ERR 10 

CK LOCK ON ERROR 

LOOP 

BSC SKPD-SHOULD BRNCH 

ERR ID 

CK LOCK ON ERROR 

LOOP 

ZERO WITH /8001 

SK ON ZERO 



ACC DISTROYED AFTER BSC 

ERR ID 

CK LOCK ON ERROR 

EXIT TO NEXT ROUTINE 
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3A134700 
3A134710 
3A1 34720 
3A134730 
3A1 34740 
3A 134750 
3A1 34760 
3A134770 
3A1 34780 
3A 134790 
3A1 34800 
3A134810 
3A1 34820 
3A134830 
3A1 34840 
3A134850 
3A1 34860 
3A134870 
3A1 34880 
3A134890 
3A1 34900 
3A 1349 10 
3A1 34920 
3A 134930 
3A1 34940 
3A 1349 50 
3A1 34960 
3A 134970 
3 A 134980 
3A 134990 
3A1 35000 
3A135010 
3A1 35020 
3A 13 5030 
3A1 35040 
3A135050 
3A1 35060 
3A135070 
3A1 35080 
3A 135090 
3A1 35100 
3A135110 
3A135120 
3A135130 
3A1 35140 
3A135150 
3A1 35160 
3A135170 
3A1 35160 
3A135190 
3A1 35200 
3A 1352 10 
3A1 35220 
3A135230 
3A1 35240 
3A13S250 
3A1 35260 
3A135270 
3A1 35260 
3A 13 5290 
3A1 35300 
3A135310 
3A1 35320 
3A135330 
3A135340 
3A135350 
3A1 35360 
3A135370 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG 10 
PA6E 



03A1-1 
24* 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



061E 
061F 
0620 
0622 
0623 
0625 
0626 
0627 
0629 
062A 
062C 
0620 



7008 
700A 

4400 0F69 
30B1 

440© 0FC4 
70F3 
7006 

4400 OF 69 
3082 

4400 0FC4 
70EC 
2000 



G50C 
H50C 



J50C 



MDX 

MDX 

BSI 

DC 

BSI 

MOX 

MDX 

BSI 

DC 

BSI 

MDX 

LDS 



J50C 

K50C 

FOOO 

/30B1 

F005 

A50C 

A50E 

FOOO 

/30B2 

F005 

A50C 





K50C 
A50E 



BSC FELL THRU 

ERR ID 

CK LOCK ON ERROR 

LOOP 

BSC SKPD-SHOULD BRNC 

ERR ID 

CK LOCK ON ERROR 

LOOP 

SET C AND OF OFF 



062E 2003 
062F C028 
0630 4C3F 0634 



0632 
0633 
0634 
0636 
0637 
0639 
063A 
063B 
063D 
063E 
0640 

0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
064A 
064C 
0640 
064F 
0650 
0651 
0653 
0654 
0656 
0657 
0658 
0659 
065A 
065B 
065C 
065D 
065F 
065F 



700B 

7007 

4400 0F69 

3083 

4400 0FC4 

70F3 

7006 

4400 OF 69 

30B4 

4400 

70EC 



0FC4 



650E 



J50E 



H50E 



LDS 

LD 

BSC 



MDX 

MDX 

BSI 

DC 

BSI 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



3 SET C AND OF ON 

N500 LD /8001 

G50E.CE0CZ- BR ON NOT PLUS. NOT EVEN. 

•OF, CARRY. NOT ZERO OR 

•NOT MINUS 



H50E 

J50E 

FOOO 

/30B3 

F005 

A50E 

B500 

FOOO 

/30B4 

F005 

A50E 



BSC BRNCHED-SHOULDNT 

ERR ID 

CK LOCK ON ERROR 

LOOP 

BSC SKPD-SHOULDNT 

ERR ID 

CK LOCK ON ERROR 

LOOP 



»*»•»»*»*»»•••»»»»•»•»»•»•»••»*»»»*»•**•*«*•» 



2003 

C018 

4808 

700C 

2817 

C016 

F016 

4C18 0654 

4400 OF 69 

30B5 

4400 0FC4 

70F1 

700 F 

4400 OF 69 

30B6 

4400 0FC4 

70EA 

7008 

8001 

0000 

8000 

0001 

0004 

0000 

0003 

0002 



8500 



S501 



S503 



N500 
N501 
N502 
N503 
N504 
N505 
N506 
N542 
• 



LDS 

LD 

BSC 

MDX 

STS 

LD 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

MOX 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

DC 

DC 

DC 

OC 

DC 

OC 

DC 



3 

N503 

£ 

S501 

N505 

N505 

N506 

S503.C- 

FOOO 

/30B5 

F005 

B500 

A540 

FOOO 

/30B6 

F005 

B500 

A540 

/8001 

/OOOO 

/8000 

/0001 

/0004 

• -• 

/0003 

/0002 



SET C AND OF ON 
LD /0001 
SK ON PLUS 

SET /0003 IN N505 

LO /0003 

ZERO WITH /0003 

BRANCH ON ZERO 

BSC £ CLEARED OVFLH 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSC FA1LE0 TO SKP 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



ST0RA6E 



TEST OF BSI OPERATION 



*•••••••••••••»••••»•••••••••••••••••••••*••• 

*••*••*••*•••••«*•*•••••••••««•*•••*»«»•*•**••••*•••*»*•******«******»* 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS IDESEQi AT RIGHT 

•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••we* 

0660 2003 A540 LOS 3 SET C ANO OF ON 

0661 C0F6 LD N500 LO /8001 

0662 442F 0674 BSI L G540.EC0£Z BR ON NOT EVEN, CARRY, OF, 
0664 7001 MDX H540 • NOT PLUS OR NOT ZERO 



DATE 

EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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c 




3A1 35380 






3A135390 






3A1 35400 


c 




3A135410 






3A1 35420 






3A 135430 


c 




3A1 35440 






3A135450 






3A1 35460 


c 




3A 13 5470 






3A1 35480 






3A 13 5490 


c 


8 


3A1 35500 






3A135510 






3A1 35520 


c 


c 


3A135530 






3A135540 






3A135550 


c 


© 


3A1 35560 






3A135570 






3A1 35580 


c 


e 


3A135590 






3A1 35600 






3A135610 


c 


• 


3A135620 






3A135630 






3A135640 


c 


a 


3A135650 






3A1 35660 






3A135670 


c 


a 


3A1 35680 






3A135690 






3 Al 35700 


c 


e 


3A135710 






3A135720 






3A135730 


o 


e 


3A1 35740 






3A 13 5750 






3A1 35760 






3A135770 






3A1357B0 






3A135790 






3A1 35800 






3A135810 






3A1 35820 






3A135830 






3A1 35840 






3A135850 






3A1 35860 






3A135870 






3A13SB80 






3A135890 






3A1 35900 






3A135910 






3A1 35920 






3A135930 






3A1 35940 







3A135950 






3A1 35960 






3A135970 


e 




3A1 35980 






3A135990 






3A1 36000 







3A136010 






3A136020 






3A136030 







3A1 36040 






3A 136050 


• 
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• 
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_. 


^ 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



0665 
0666 
0668 
0669 
066B 
066C 
0660 
066F 
0670 
0672 
0673 
0674 
0675 
0676 
0677 
0679 
0678 
0670 
067E 
0680 

0681 
0663 
0685 
0686 
0687 
0689 
068A 
068C 
0680 
068E 
0690 
0691 
0693 
0694 
0695 

0696 
0697 
0699 
069A 
0698 
069C 
069 E 
069 F 
06A1 
06A2 
06A3 
06A5 
06A6 
06A8 



7007 
4400 
30B7 
4400 
70F4 
7014 
4400 
30B8 
4400 
70E0 
7001 
0000 
28E7 
C0E6 
F400 
4C18 
4400 
30 B9 
4400 
70 DF 



OF 69 
0F98 

0F69 
0F98 



065F 
067E 
OF 69 

0FC4 



C400 065F 

4430 0695 

7001 

7007 

4400 OF 69 

30BA 

4400 0FC4 

70F4 

7008 

4400 OF 69 

30BB 

4400 0FC4 

70ED 

7001 

0000 

C0C2 

4420 069 B 
700C 
7008 
0000 

4400 0F69 
30 BC 

4400 0FC4 
70F4 
7006 

4400 OF 69 
30BD 

4400 0FC4 
7OE0 



H540 



J 540 



G540 



G542 



A544 



H544 



J 544 



G544 



A546 



G546 



HS46 



J546 



MDX 




J540 


BSI 


L 


FOOO 


DC 




/30B7 


BSI 


L 


FOOE 


MDX 




A540 


MOX 




A544 


BSI 


L 


FOOO 


OC 




/30B8 


BSI 


L 


FOOE 


MDX 




A540 


MDX 




G540C1 


DC 




/OOOO 


STS 




N505 


LD 




N505 


EOR 


L 


N542 


BSC 


L 


G542,£- 


BSI 


L 


FOOO 


DC 




/30B9 


BSI 


L 


F005 


MDX 




A540 


••••••••••*•*•• 


LD 


L 


N542 


BSI 


L 


G544, Z- 


MDX 




H544 


MDX 




J544 


BSI 


L 


FOOO 


DC 




/30BA 


BSI 


L 


F005 


MDX 




A544 


MDX 




A546 


BSI 


L 


FOOO 


DC 




/30BB 


BSI 


L 


F005 


MOX 




A544 


MDX 




A546 


DC 




/OOOO 


•••••••*••••••• 


LD 




N501 


BSI 


L 


G546.Z 


MDX 




J546 


MDX 




H546 


DC 




/OOOO 


BSI 


L 


FOOO 


DC 




/30BC 


BSI 


L 


F005 


MDX 




A546 


MDX 




A548 


BSI 


L 


FOOO 


OC 




/30B0 


BSI 


L 


F005 


MDX 




A546 



CORE DATA OR 
AODR INSTRUCTION 
•••••••*•••*••»•«••* 

06A9 COAE 

4410 06B4 

700 B 

4400 OF 69 

30BF 

4400 0FC4 

70F6 

7007 

OOOO 

4400 OF 69 

30BF 

4400 0FC4 



•••••••••••••••••a***** 

• •••••••••••••••••••••a* 

•LA- OPER- 

*BEL ATION FT OPERANDS 

•••**«*••***•*•••••*•• 



BSI FELL THRU 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI SKPD-SHOULD BRNCH 

ERR 10 

CK LOCK ON ERROR 

LOOP 

SK TO HORO AFTER G540 

STORE /0002 IN N505 
LD /0002 
ZERO HITH /0002 
BRANCH ON ZERO 
BSI NOT CLEAR OVERFLOW 
ERR ID 

CK LOCK ON ERROR 
LOOP 
*••••••••••*•*•••«»«*■• 

LD /0002 

SK ON NOT ZERO OR 

• NOT MINUS 

BSI 010 NOT BRANCH 
ERR 10 

CK LOCK ON ERROR 
LOOP 

EXIT TO NEXT ROUTINE 
BSI SKPD-SHOULD BRNC 
ERR ID 

'CK LOCK ON ERROR 
LOOP 
EXIT TO NEXT ROUTINE 

*••••*••••*•*•*••••*«•» 
BR WHEN NOT ZERO 



BSI BRNCHO-SHOULO NO 
ERR ID 

CK LOCK ON ERROR 
LOOP 

EXIT TO NEXT ROUTINE 
BSI SKPD-SHOULD NOT 
ERR ID 

CK LOCK ON ERROR 
LOOP 
«*«**•*•#•**•*•*•*•»•* 

£ REMARKS 1D£SE0» AT RIGHT 



A 548 



06AA 
06AC 
06AD 
06AF 
06B0 
06B2 
06B3 
06B4 
06B5 
06B7 
06B8 



G548 



H548 



LD 

BSI 

MOX 

BSI 

DC 

BSI 

MOX 

MDX 

OC 

BSI 

OC 

BSI 



N500 

G548,- 

H54 8 

FOOO 

/30BF 

F005 

A548 

A54A 

/OOOO 

FOOO 

/30BF 

F005 



BR UHEN NOT MINUS 

BSI SKP-OM COND TRUE 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI BRNCHO-SHOULO NOT 

ERR ID 

CK LOCK ON ERROR 
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3A1 36060 
3A 136070 
3A 136080 
3A 136090 
3A1 36100 
3A 1361 10 
3A136120 
3A136130 
3A136140 
3A136150 
3A1 36160 
3*136170 
3A136180 
3A136190 
3A 136200 
3A 1362 10 
3A1 36220 
3A 136230 
3A136240 
3A136250 
3A136260 
3A136270 
3A1362B0 
3A 136290 
3A136300 
3A136310 
3A136320 
3A 136330 
3A1 36340 
3A136350 
3A1 36360 
3A 136370 
3A1 36360 
3 A 136390 
3A1 36400 
3A 1364 10 
3A1 36420 
3A136430 
3A1 36440 
3A 136450 
3A1 36460 
3A 136470 
3A1 364*0 
3A136490 
3A1 36500 
3A136510 
3A1 36520 
3A136530 
3A 136540 
3A 136550 
3A1 36560 
3A136570 
3 Al 36580 
3A136590 
3A 136600 
3A 1366 10 
3A1 34620 
3A 136630 
3 A 136640 
3A136650 
3A1 36660 
3A136670 
3A1 36680 
3A 136690 
3A1 36700 
3A 1367 10 
3A1 36720 
3A 136730 



I 
1 
i 

f 

c 
c 
c 
c 
c 
I 
I 
f 
t 



a 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG 10 
PAGE 



03A1-1 
2?A 



ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



DATE 
EC NO. 



068 A 70EE 



06BB C0A3 




06BC 4408 


06C6 


06BE 700B 




06BF 4400 


OF 69 


06C1 30C0 




06C2 4400 


0FC4 


06C4 70F6 




06C5 7007 




06C6 0000 




06C7 4400 


OF 69 


06C9 30C1 




06CA 4400 


0FC4 


06CC 70EE 




06C0 C091 




06CE 4404 


06D8 


0600 700 B 




06D1 4400 


0F69 


0603 30C2 




0604 4400 


0FC4 


0606 70F6 




0607 7007 




C6D8 0000 




0609 4400 


OF 69 


060B 30C3 




060C 4400 


0FC4 


06DE 70EE 




06DF 2000 




06E0 4402 


06EA 


06E2 700 B 




06E3 4400 


OF 69 


06E5 30C4 




06E6 4400 


0FC4 


06E8 70F6 




06E9 7007 




06EA 0000 




06EB 4400 


OF 69 


06ED 30C5 




06EE 4400 


0FC4 


06F0 70EE 




06F1 2000 




06F2 4401 


06FD 


06F4 700C 




06F5 4400 


0F69 


06F7 30C6 




06FB 30C6 




06F9 4400 


0FC4 


06FB 70F5 




06FC 7007 




06F0 0000 




06FE 4400 


OF 69 


0700 30C7 




0701 4400 


0FC4 


0703 70 EO 





MOX A54B LOOP 



A 54 A 



G54A 



H54A 



ID 
BSI 

MOX 

bsi 

DC 

BSI 

MDX 

MDX 

OC 

BSI 

DC 

BSI 

MDX 



N542 

G54A,t 

H54A 

FOOO 

/30C0 

F005 

A54A 

A54C 

/OOOO 

FOOO 

/30C1 

F005 

A54A 



BR MHEN NOT PLUS 

BSI SKPD ON COND TRUE 

ERR 10 

CK LOCK ON ERKOR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI BRNCHD-SHOULD NOT 

ERR 10 

CK LOCK ON ERROR 

LOOP 



**••***••••**»*•••*••*••*•••*•••**«*•***•*••• 



A54C 



C54C 



H54C 



10 

BSI 

MDX 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

BSI 

DC 

BSI 

MDX 



N542 

G54C.E 

H54C 

FOOO 

/30C2 

F005 

A54C 

A54E 

/OOOO 

FOOO 

/30C3 

F005 

A54C 



BR WHEN NOT EVEN 

BSI SKPD ON COND TRUE 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI BRNCHD-SHOULD NOT 

ERR 10 

CK LOCK ON ERROR 

LOOP 



***•••»*••*«••••***••»*•**•*******«***,*****» 



A54E 



654E 



H54E 



LDS 

BSI 

MDX 

BSI 

DC 

BSI 

MOX 

MDX 

DC 

BSI 

OC 

BSI 

MDX 





G54E,£ 

H54E 

FOOO 

/30C4 

F005 

AS4E 

A54F 

/OOOO 

FOOO 

/30C5 

F005 

A54E 



SET C 

BR IF 



AND OF OFF 
CARRY IS ON 



BSI SKPD ON COND TRUE 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI BRNCHD-SHOULD NOT 

ERR 10 

CK LOCK ON ERROR 

LOOP 



►*»»»»*»***»****»•»»*»****»»»**»»*»*»»*»»*»» 



A54F 



G54F 



H54F 

* 



LDS 

BSI 

MDX 

BSI 

DC 

DC 

BSI 

MDX 

MDX 

DC 

BSI 

DC 

BSI 

MDX 





G54F,0 

H54F 

FOOO 

/30C6 

/30C6 

F005 

A54F 

A580 

/OOOO 

FOOO 

/30C7 

F005 

A54F 



SET C AND OF OFF 
BR ON OVERFLOW 

BSI SKPD ON COND TRUE 

ERR 10 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

BSI BRNCHD-SHOULD NOT 

ERR ID 

CK LOCK ON ERROR 

LOOP 

TEST OF LOD OPERATION 



ft******************************************** 

CORE OATA OR »LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS C REMARKS IOCSEO* AT RIGHT 

*»•»»**»»*»»»»**•**»*•*»*»*»***»»„»»,»»»»*„ »•»•«»•»»»»*»»*»*»«***»**»* 

0704 CCOO 0788 A580 LDD L N5C1 LDD Ai/OOOO Oi/0000 
0706 4C18 070B BSC L G5B0.E- BRANCH ON ZERO 



02JAN66 
415490 



01MAY66 
415490C 



1SN0V66 
419643 



15FEB6B 
420403 



26AUG68 
420403A 
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3A1 36740 

3A 136750 

3A 136760 

3A136770 

3A1 36780 

3A 136790 

3A 136800 

3A136810 

3A1 36820 

3A136B30 

3A136840 

3A136850 

3A136860 

3A136870 

3A136880 

3A 136890 

3A1 36900 

3A136910 

3A1 36920 

3A 136930 

3 Al 36940 

3A1 36950 

3A136960 

3A 136970 

3A1 36900 

3A136990 

3A137000 

3A137010 

3A137020 

3A137030 

3A137040 

3A 137050 

3A137060 

3A 137070 

3A137080 

3A 13 7090 

3A1371O0 

3A137110 

3A137120 

3A137130 

3A137140 

3A137150 

3A137160 

3A137170 

3A1371B0 

3A137190 

3A1 37200 

3A 1372 10 

3A137220 

3A 1372 30 

3A1 37240 

3A137250 

3A137260 

3A137270 

3A1372B0 

3A137290 

3A137300 

3A137310 

3A137320 

3A137330 

3A137340 

3A137350 

3A1 37360 

3A137370 

3A137380 

3A 137390 

3A137400 

3A137410 



PROG 10 
PAGE 



03A1-1 
28 



c 
c 
c 
c 
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c! 
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c 

c 

o 

c 

o 

c 
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© 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



i 

9 
t 

t 



DATE 
EC NO. 



0708 





4400 


0F69 




BSI 


L 


FOOO 


LDD-A REG INCORRECT 


070A 





30C8 






DC 




/30C8 


ERR ID 


070B 





4400 


0F98 


G580 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


070D 





70 F6 






MOX 




A580 


LOOP 


070E 





1800 






RTE 




16 




070F 





4C18 


0714 




BSC 


L 


G582.&- 


BRANCH ON ZERO 


0711 





4400 


OF 69 




BSI 


L 


FOOO 


LDD-Q REG INCORRECT 


0713 





30C9 






DC 




/30C9 


ERR ID 


0714 





4400 


0FC4 


G582 


BSI 


L 


F005 


CK LOCK ON ERROR 


0716 





70 ED 






MDX 




A580 


LOOP 










******••*»»***»***»**»»»»»»*»*»•»»»»»•»»»»»»* 


0717 





C872 




A584 


LDD 




N5C3 


LD Ai/FFFF Oi/FFFF 


0718 





F072 






EOR 




N5C4 


ZERO WITH /FFFF 


0719 





4C18 


071E 




BSC 


L 


G584.C- 


BRANCH ON ZERO 


071B 





4400 


OF 69 




BS] 


L 


FOOO 


LDD-A REG INCORRECT 


071D 





30CA 






DC 




/30CA 


ERR ID 


071E 





4400 


0F98 


G584 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0720 





70F6 






MDX 




A584 


LOOP 


0721 





1800 






RTE 




16 


NOW Af/FFFF Oi/0000 


0722 





F068 






EOR 




N5C4 


ZERO WITH /FFFF 


0723 





4C18 


0728 




BSC 


L 


G586,£- 


BRANCH ON ZERO 


0725 





4400 


0F69 




BSI 


L 


FOOO 


LDD-0 REG INCORRECT 


0727 





30CB 






DC 




/30CB 


ERR ID 


0728 





4400 


0FC4 


G586 


BSI 


L 


F005 


CK LOCK ON ERROR 


072A 





70EC 






MDX 




A584 


LOOP 










*»****«»»*•»»»*»•»*»»»»«•»*•»»»««•»*»*»«»•**» 


072B 





CB5C 




A588 


LDD 




N5C1 


LD AH/0000 Oi/0000 


072C 





4C18 


0731 




BSC 


L 


G588,t- 


BRANCH ON ZERO 


072E 





4400 


OF 69 




BSI 


L 


FOOO 


LOD ODD-A REG FAILED 


0730 





30CC 






DC 




/30CC 


ERR ID 


0731 





4400 


0F98 


G588 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0733 





70 F7 






MOX 




A588 


LOOP 


0734 





1BD0 






RTE 




16 


NUH Af/FFFF Oi/0000 


0735 





4C18 


073A 




BSC 


L 


G58A.C- 


BRANCH ON ZERO 


0737 





4400 


0F69 




BSI 


L 


FOOO 


LDD-ODD-0 PEG FAILED 


0739 





30CD 






DC 




/30CD 


ERR ID 


073A 





4400 


0FC4 


G58A 


BSI 


L 


F005 


CK LOCK ON ERROR 


073C 





70 EE 




• 
« 
• 


MDX 




A588 

TEST 


LOOP 
OF STD OPERATION 



CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IDtSEQi AT RIGHT 

***»»»•»•»**«»»»*»•»*»»»•»»»»»*»»**»»***»»»♦*#***»»*»»»»****»** 



073D 
073E 
073F 
0740 
0742 
0744 
0745 
0747 
0748 
0749 
074B 
0740 
074E 
0750 

0751 
0752 
0753 
0754 
0755 
0756 
0757 



C84A 
D84D 
C04C 

4C1S 0745 
4400 0F69 
30CF 

4400 0F98 
70 F5 
C044 

4C18 074E 
4400 0F69 
30CF 

4400 0FC4 
70EC 

C036 
D039 
DO 39 
C835 
0836 
C035 
F032 



A5C0 



N5C1 LD Ai/OOOO 00/0000 

N5C5 

N5C5 LD At/0000 Qf /OOOO 

L G5C0,C- BRANCH ON ZERO 

L FOOO STD-EA INCORRECT 

/30CF ERR ID 

L FOOE CK LOCK ON ERROR 

A5C0 LOOP 

N5C6 LD /FFFF 

L G5C2.C- BRANCH ON ZERO 

L FOOO ST0-EAC1 INCORRECT 

/30CF ERR ID 

L F005 CK LOCK ON ERROR 

A5C0 LOOP 



G5C0 



G5C2 



LDD 

STD 

LD 

BSC 

BSI 

DC 

BSI 

MDX 

LO 

BSC 

BSI 

DC 

BSI 

MDX 



A5C4 



02JAN66 
415490 



01MAV66 
415490C 



LD 

STO 

STO 

LDD 

STD 

LD 

EOR 



15N0V66 
41«643 



N5C1 
NSC 5 
N5C6 
N5C3 
N5C5 
NSC 5 
N5C3 



15FEB68 
420403 



LD /OOOO 
STORE /OOOO 
STORE /OOOO 
LD Ai/FFFF 
STORE /FFFF 
LD /FFFF 
ZERO HITH /FFFF 



0#/FFFF 
AND /FFFF 
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3A1 37420 
3A 137430 
3A1 37440 
3A 13 7450 
3A1 37460 
3A 13 7470 
3A1 37480 
3A 137490 
3 Al 37500 
3A137510 
3A1 37520 
3A 137530 
3A137540 
3A1375S0 
3A137560 
3A137570 
3A137S80 
3A137590 
3A1 37600 
3A137610 
3A137620 
3A137630 
3A1 37640 
3A137650 
3 Al 37660 
3A137670 
3A1 37680 
3A137690 
3A137700 
3A137710 
3A1 37720 
3A 13 7730 
3A137740 
3A137750 
3A1 37760 
3A137770 
3A1 37780 
3A137790 
3A1378O0 
3A137B10 
3A1 37820 
3A137830 
3A1 37840 
3A137850 
3A137860 
3A137870 
3A137880 
3A137B90 
3A137900 
3A137910 
3A137920 
3A137930 
3A 137940 
3A137950 
3A137960 
3A 137970 
3A1 37980 
3A137990 
3A1 38000 
3A 1380 10 
3A 138020 
3A 138030 
3 A 138040 
3A138050 
3A 138060 
3A 138070 
3A1 38080 
3A138090 



26AUG68 
420403A 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



07*8 





4C18 


0750 


07 5 A 





4400 


OF 69 


0T5C 





3000 




0750 





4400 


0F98 


075F 





70F1 




0760 





C02C 




0761 





F02B 




0762 





4C1B 


0767 


0764 





4400 


0F69 


0766 





3001 




0767 





4400 


0FC4 


0769 





70E7 




076A 





COIF 




076B 





0020 




076C 





DO 20 




0760 





0020 




07 6E 





C819 




076F 





D81D 




0770 





CO 17 




0771 





C01B 




0772 





4C18 


0777 


0774 





4400 


OF 69 


0776 





3002 




0777 





4400 


0F98 


0779 





70 FO 




077A 





C013 




077B 





FOOE 




077C 





4C18 


0781 


077E 





4400 


OF 69 


0780 





3003 




0781 





4400 


0FC4 


0783 





70E6 




0784 





COOS 




0785 





0007 




0786 





D007 




0787 





7007 




0788 




0000 




0788 





0000 




0789 





0000 




078A 





FFFF 




078B 





FFFF 




078C 





FFFF 




0780 





FFFF 




078E 





FFFF 





G5C4 



G5C6 



A5C8 



GSCB 



G5CA 



BSC 


L 


G5C4.E- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


STO-EA INCORRECT 


oc 




/30DO 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MDX 




A5C4 


LOOP 


LD 




N5C6 


LO /llll 


EOR 




N5C3 




BSC 


L 


G5C6t£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


STD-EAU INCORRECT 


OC 




/30D1 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MOX 




A5C4 


LOOP 


•«•• 


******»*»*****»»*»» »»**»»»»* »»»*»»* 


ID 




N5C3 


LD /FFFF 


STO 




N5C5 


STORE /FFFF 


STO 




N5C6 




STO 




N5C7 




LOO 




N5C1 


LD At/0000 OH/0000 


STD 




N5C6 


STORE IN NSC6 £ N5C7 


LO 




N5C1 


LD /OOOO 


LO 




N5C6 


LO /OOOO 


BSC 


L 


G5C8,£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


STO-OOO-EA INCORRECT 


DC 




/30D2 


ERR 10 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


HDX 




A5C8 


LOOP 


LO 




NSC 7 


LO /FFFF 


EOR 




N5C3 


ZERO WITH /FFFF 


BSC 


L 


G5CA.C- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


STD-0DD-EAC1 LOAOED 


DC 




/30D3 


ERR 10 


BSI 


L 


F005 


CK LOCK ON ERROR 


MOX 




A5C8 


LOOP 


LO 




N5C3 


LO /FFFF 


STO 




NSC 6 




STO 




N5C7 




MOX 




A600 


EXIT TO NEXT ROUTINE 


BSS 


E 






OC 




/OOOO 




DC 




/OOOO 




OC 




/FFFF 




OC 




/FFFF 




DC 




/FFFF 




OC 




/FFFF 




DC 




/FFFF 





N5C1 

N5C3 
N5C4 
N5C5 
N5C6 
N5C7 
• 

CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS IDCSEQ* AT RIGHT 



TEST OF LDX OPERATION 



078F 





6500 


0792 


0791 





7003 




079? 





4400 


0F69 


0794 





30D4 




0795 





4400 


0FC4 


0797 





70F7 




0798 





6600 


079B 


079A 





7003 




079B 





4400 


OF 69 


079D 





3005 




079E 





4400 


0FC4 


O7A0 





70F7 





A600 



G600 



H600 



LDX 

MDX 

BSI 

DC 

BSI 

MDX 



LI G600 
H600 

L FOOO 
/30D* 

L F005 
A600 



07A1 6100 



LD XR 1 WITH ADDR OF G600 

TAG REG BIT 7 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

A602 LDX L2 G602 LD XR 2 UITH ADOR OF G602 

MOX H602 

G602 BSI L FOOO TAG REG BIT 6 FAILED 

DC /30D5 ERR ID 

H602 BSI L F005 CK LOCK ON ERROR 

MOX A602 LOOP 

A604 LDX 10 LD DISP#0 TO XR 1 
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3A138100 
3A138110 
3A138120 
3A138130 
3A138140 
3A138150 
3A138160 
3A138170 
3A1 38180 
3A138190 
3A1 38200 
34138210 
3A1 38220 
3A 1382 30 
3A1 38240 
3A138250 
3A138260 
3A138270 
3A1 38280 
3A138290 
3A138300 
3A13B310 
3A138320 
3A138330 
3A 138340 
3A138350 
3A 138 360 
3A138370 
3 A 138380 
3A138390 
3A138400 
3A138410 
3A138420 
3A13B430 
3A1 38440 
3A138450 
3A1 38460 
3A 138470 
3A1 38480 
3A138490 
3A1 38500 
3A138510 
3A138520 
3A138530 
3A138540 
3A13B550 
3A1 38560 
3A138570 
3A138580 
3A138590 
3A138600 
3A138610 
3A138620 
3A138630 
3A 138640 
3A138650 
3A1 38660 
3A138670 
3A1 38680 
3A 136690 
3A13B700 
3A138710 
3A138720 
3A138730 
3A138740 
3A138750 
3A1 38760 
3A138770 



; f 

c| 

c 

c 

c 

c 

o 

c 

c 

G 

c 



t i 



c 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



1SFEB68 
420403 



26AUG68 
420403A 
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DATE 

EC NO. 



07/.' 


CSOO 


080C 




LD 


LI 


N601 


LO AODR OF N601 £ XR 


1 


3A138780 




07A4 


F067 






EOR 




N601 


ZERO UITH ADDR OF N601 


3A138790 




07A5 


4C18 


07AA 




BSC 


L 


G604,£- 


BRANCH ON ZERO 




3A1 38800 




07A7 


4400 


OF 69 




BSI 


L 


FOOO 


IX 1 NOT LOADED 




3A138810 




07A9 


3006 






DC 




/3006 


ERR ID 




3A1 38820 




07AA 


4400 


0FC4 


G604 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A 13 8830 




07AC 


70F4 






MOX 




A604 


LOOP 




3A1 38840 










»**»»»»»»»*»»»*»»»»»»***»»»»•»»»«»»»»»*»*»»»» 




3A138850 




07A0 


6200 




A 606 


LDX 


2 





LD OlSPtO TO XR 2 




3A1 38860 




07AE 


COSF 






LD 




N603 


LD /FFFF 




3A138870 




07AF 


C600 


080C 




LD 


L2 


N601 


LD AODR OF N601 ( XR 


2 


3A1 38880 




07B1 


F05A 






EOR 




N601 


ZERO WITH AODR OF N601 


3 A 13 8890 




07B2 


4C18 


07B7 




BSC 


L 


G606.C- 


BRANCH ON ZERO 




3A1 38900 




0764 


4400 


OF 69 




BSI 


L 


FOOO 


XR 2 NOT LOAOED 




3A138910 




07B6 


3007 






OC 




/30D7 


ERR ID 




3A1 38920 




07B7 


4400 


0FC4 


G606 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A138930 




07B9 


70F3 






MDX 




A606 


LOOP 




3A1 38940 










****»*****»»»»»«»••»••»•»*»•*•*»»•»»**»»»»»»» 




3A138950 




07BA 


6300 




A608 


LDX 


3 





LO OISP*0 TO XR 3 




3A1 38960 




07BB 


C052 






LO 




N603 


LO /FFFF 




3A138970 




07BC 


C700 


080C 




LD 


L3 


N601 


LO ADOR OF N601 E XR 


3 


3A 138980 




07BE 


F04D 






EOR 




N601 


ZERO WITH AODR OF N601 


1 3A 13 8990 




07BF 


4C18 


07C4 




BSC 


L 


G608.L- 


BRANCH ON ZERO 




' 3A1 39000 




07C1 


4400 


0F69 




BSI 


L 


FOOO 


XR 3 NOT LOADED 




3A139010 




07C3 


30D8 






DC 




/3008 


ERR ID 




3AI 39020 




07C4 


4400 


0FC4 


G608 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A139030 




07C6 


70F3 






MDX 




A608 


LOOP 




3A 139040 










*«»•»»»»««»»»*»»»#»*»**»»*•**»*»***»*»»»»»*»» 




3A 139050 




07C7 


61FF 




A60A 


LOX 


1 


-1 


LD XR 1 WITH -1 




3A1 39060 




07C8 


C045 






LD 




N603 


ld /mi 




3A139070 




07C9 


C500 


080C 




LD 


Ll 


N601 


LO ADDR OF N601 £ XR 


1 


3A 139080 




07CB 


F03F 






EOR 




N600 


ZERO WITH ADDR OF N600 


3A 139090 




07CC 


4C1B 


0701 




BSC 


L 


G60A.C- 


BRANCH ON ZERO 




3A139100 




07CE 


4400 


OF 69 




BSI 


L 


FOOO 


aR 1 NOT LOADED 




3A139110 




0700 


30D9 






DC 




/30D9 


ERR ID 




3A139120 




0701 


4400 


0FC4 


G60A 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A139130 




0703 


70F3 






MDX 




A60A 


LOOP 




3A139140 










»»»•»*»»*»»*»■• **«*•*»»**»*»»»•* •»*»*«!»*»»»»»* 




3A139150 




07D4 


62FF 




A60C 


LDX 


2 


-1 


LD XR 2 WITH -1 




3A139160 




0705 


CO 38 






LD 




N603 


LD /FFFF 




3A139170 




0706 


C600 


080C 




LD 


L2 


N601 


LO AODR OF N601 £ XR 


2 


3A139180 




0708 


F032 






EOR 




N600 


ZERO WITH ADDR OF N600 


3A 139 190 




07D9 


4C18 


07DE 




BSC 


L 


G60CL- 


BRANCH ON ZERO 




3A 139200 




070B 


4400 


0F69 




BSI 


L 


FOOO 


XR 2 NOT LOAOED 




3A139210 




07DD 


30DA 






DC 




/30DA 


ERR ID 




3A1 39220 




070E 


4400 


0FC4 


G60C 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A139230 




07E0 


70F3 






MDX 




A60C 


LOOP 




3A1 39240 










•••••••••*••••*••••*•*••*•»*•**•*••••*•*••*•• 




3A1392S0 




07E1 


63FF 




A60E 


LOX 


3 


-1 


LO XR 3 WITH -1 




3A1 39260 




07E2 


C02B 






LO 




N603 


LO /FFFF 




3A139270 




07E3 


C700 


080C 




LD 


L3 


N601 


LD ADDR OF N601 £ XR 


3 


3A139280 




07ES 


F025 






EOR 




N600 


ZERO WITH ADOR OF N600 


3A 139290 




07E6 


4C18 


07EB 




BSC 


L 


&60E.C- 


BRANCH ON ZERO 




3A139 300 




07E8 


4400 


OF 69 




BSI 


t. 


FOOO 


XR 3 NOT LOADED 




3A139310 




07EA 


3008 






OC 




/30D6 


ERR ID 




3A139320 




07EB 


4400 


0FC4 


G60E 


SSI 


L 


F005 


CK LOCK ON ERROR 




3A139330 




07E0 


70F3 






MOX 




A60E 


LOOP 




3A139340 










•••*••*•••*••«•••••«**•»**•••*•***••••**••••* 




3A1393S0 




07EE 


6500 


0001 


B600 


LOX 


Ll 


1 


LD XR 3 WITH £1 




3A139360 




07F0 


CO ID 






LD 




N6 03 


LD /FFFF 




3A 139 370 




07F1 


C500 


080C 




LO 


Ll 


N601 


LD ADDR OF N601 £ XR 


1 


3A139380 




07F3 


F019 






EOR 




N602 


ZERO WITH AODR OF N602 


3A 139 390 




07F4 


4C18 


07F9 




BSC 


L 


J600,£- 


BRANCH ON ZERO 




3A139400 




07F6 


4400 


0F69 




BSI 


L 


FOCO 


LONG FORM LDX-FAILED 




3A139410 




07FB 


300C 






DC 




/30DC 


ERR ID 




3A139420 




07F9 


4400 


0FC4 


J600 


BSI 


L 


F005 


CK LOCK PN ERROR 




3A 139430 




07FB 


70F2 






MDX 




B600 


LOOP 




3A1 39440 










*•»»»»»•»«*»*•»»»•»»•»*»»»*»»»»»**»»•»»•»*»•• 




3A 139450 




02JAN66 01MAY66 


1SN0V66 


1SFEB68 


26AUG68 
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07FC 





6780 


080E 


6602 


LOX 


13 


N603 


LD XR 3 WITH /FFFF 


07FE 





CO 10 






LO 




N604 


ID /0001 


07FF 





C700 


OSOC 




ID 


L3 


N601 


LO ADDR OF N601 t XR 3 


0801 





FOOT 






EOR 




N600 


ZERO KITH AOOR OF N600 


0802 





4C18 


0807 




BSC 


L 


J602,£- 


BRANCH ON ZERO 


0804 





4400 


0F69 




BSI 


L 


FOOO 


INDIRECT LDX FAILED 


0806 





30D0 






DC 




/3000 


ERR 10 


0807 





4400 


0FC4 


J602 


BSI 


L 


F005 


CK LOCK ON ERROR 


0809 





70F2 






MDX 




B602 


LOOP 


080A 





7005 






MDX 




A640 


EXIT TO NEXT ROUTINE 


080B 





080B 




N600 


DC 




N600 




OBOC 





OSOC 




N601 


DC 




N601 




0800 





0800 




N602 


DC 




N602 




080E 





FFFF 




N603 


DC 




/FFFF 




080F 





0001 




N604 

* 
* 


DC 




/0001 

TEST 


OF STX OPERATION 



CORE DATA OR «LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 





0810 





C06D 




A640 


LD 




N644 


LO /FFFF 




0811 





D069 






STO 




N640 


SAVE 




0812 





COFF 




H640 


LD 




H640 


LD /COFF 




0813 





6867 






STX 




N640 


STORE INST REG AT N64 




0814 





FOFO 




K640 

• 


EOR 




H640 


CK THAT ACC WAS NOT 
• RESET BY STX 




0815 





4C18 


0810 




BSC 


L 


G640,£- 


BRANCH ON ZERO 




0817 





4400 


0F69 




BSI 


L 


FOOO 


ACC GONE AFTER STX 




0819 





3167 






DC 




/3167 


ERR ID 




081A 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 




08 1C 





70F3 






MDX 




A640 






0810 





C05D 




G640 


LD 




N640 


CK THAT STX STORED CO 




081E 





F05D 






EOR 




N642 






081F 





4C18 


0824 




BSC 


L 


G641,£- 


BRANCH ON ZERO 




0821 





4400 


0F69 




BSI 


L 


FOOO 


I CTR NOT STORED 




0823 





300 E 






DC 




/30DE 


ERR 10 




0824 





4400 


0FC4 


G641 


BSI 


L 


F005 


CK LOCK ON ERROR 




0826 





70E9 






MDX 




A640 


LOOP 












it******************************************** 




0827 





C056 




A642 


LD 




N644 


LO /FFFF 




0828 





DO 52 






STO 




N640 


SAVE 




0829 





6100 






LOX 


1 





LD XR 1 WITH /OOOO 




082A 





6950 






STX 


1 


M640 


STORE CXXR la AT N640 




0828 





C04F 






LD 




N640 


LD CSN640B 




082C 





4C18 


0831 




BSC 


L 


G642.C- 


BRANCH ON ZERO 




082E 





4400 


OF 69 




BSI 


L 


FOOO 


XR 1 NOT STORED 




0830 





30 DF 






DC 




/30DF 


ERR ID 




0831 





4400 


0FC4 


G642 


BSI 


L 


F005 


CK LOCK ON ERROR 




0833 





70F3 






MOX 




A642 


LOOP 












•*•*•*•*•**»•*•**••*»****•***••*•************ 




0834 





C049 




A644 


LO 




N644 


LD /FFFF 




0835 





D045 






STO 




N640 


SAVE 




0836 





6200 






LOX 


2 





LD XR 2 NITH /OOOO 




0837 





6A43 






STX 


2 


N640 


STORE CXXR 2a AT N640 




0838 





C042 






LD 




N640 


LD CSN640O 




0839 





4C18 


083E 




BSC 


L 


G644, t- 


BRANCH ON ZERO 




083B 





4400 


0F69 




BSI 


L 


FOOO 


XR 2 NOT STORED 




0830 





30E0 






OC 




/30E0 


ERR ID 




08 3E 





4400 


0FC4 


G644 


BSI 


L 


F005 


CK LOCK ON ERROR 




0840 





70F3 






MDX 




A644 


LOOP 












•*•***••*••*•*•*•* *•••**••****•**•*••*•*••**• 




0841 





C03C 




A646 


LD 




N644 


LO /FFFF 




0842 





DO 38 






STO 




N640 


SAVE 




0843 





6300 






LDX 


3 





LD XR 3 WITH /OOOO 




0844 





6B36 






STX 


3 


N640 


STORE CSXR 3o AT N640 


OATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 415490C 


419643 


420403 


420403A 
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c 

3A1 39460 

3A 139470 

3A1 39480 C 

3A 139490 

3A1 39500 

3A139510 C 

3A139S20 

3A139530 

3A1 39540 C 

3A139550 

3A1 39560 

3A139570 O 

3A139580 

3A139590 

3A 139600 

3A139610 

3A1 39620 

3A139630 C 

3A1 39640 

3A139650 

3A1 39660 C 

3A 139670 

3A1 39680 

3A 139690 C ' 

3A1 39700 

3A139710 

3A1 39720 C 

3A139730 

3A139740 

3A139750 C 

3A139760 

3A139770 

3A139780 C 

3A139790 

3A1 39800 

3A139810 • 

3A1 39820 

3A139830 

3A1 39840 • 

3A 139850 

3A1 39860 

3A139870 • 

3A139880 

3A 139890 _ 

3A1 39900 • 

3A139910 

3A 139920 

3A 1399 30 • 

3A1 39940 

3A 139950 

3A1 39960 • 

3A139970 

3A1 39980 

3A139990 • 

3A140000 

3A 1400 10 

3A140020 • 

3A 140030 

3A140040 

3A 140050 O 

3A140060 

3A 140070 

3A140080 O 

3A 140090 

3A140100 

3A140110 O 

3*140120 

3A 140130 
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0845 





C035 






LD 




N640 


LO CXN640n 


0B46 





4C18 


084B 




esc 


L 


0646. C- 


BRANCH ON ZERO 


0848 





4400 


OF 69 




esi 


L 


FOOO 


XR 3 NOT STORED 


084A 





30E1 






DC 




/30E1 


ERR ID 


084B 





4400 


0FC4 


G646 


BSI 


L 


F005 


CK LOCK ON ERROR 


0840 





70F3 






MDX 




A646 


LOOP 










****»»»****•»»*»*»*•»»**•»»»•»»*»»»*»»»»«**»* 


084E 





C02E 




A648 


LD 




N643 


LD /OOOO 


084F 





002 6 






STO 




N640 


SAVE 


0850 





61 FF 






LDX 


1 


-1 


LD XR 1 WITH /FFFF 


0851 





6929 






STX 


1 


N640 


STORE CtXR la AT N640 


0852 





C028 






LD 




N640 


LO CXN640O 


0853 





F02A 






EOR 




N644 


ZERO NITH /FFFF 


0854 





4C18 


0859 




BSC 


L 


G648,£- 


BRANCH ON ZERO 


0856 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 NOT STORED 


0858 





30 E2 






DC 




/30E2 


ERR 10 


0859 





4400 


0FC4 


G648 


BSI 


L 


F005 


CK LOCK ON ERROR 


085B 





70 F2 






MDX 




A648 


LOOP 










»**•»**•**»*»»»»*»*»»*»»••*»»«»»«»*»*»•*»»*»» 


085C 





CO 20 




A64A 


LD 




Nfc43 


LD /OOOO 


0650 





D010 






STO 




N640 


SAVE 


085E 





62 FF 






LDX 


2 


-1 


LD XR 2 WITH /FFFF 


085F 





6A1B 






STX 


2 


N640 


STORE CXXR 2a AT N640 


0860 





C01A 






LD 




N640 


LD CSN640O 


0861 





F01C 






EOR 




N644 


ZERO MITH /FFFF 


0862 





4C18 


0867 




BSC 


L 


G64A,£- 


BRANCH ON ZERO 


0864 





4400 


OF 69 




BSI 


L 


FOOO 


XR 2 NOT STORED 


0866 





30E3 






DC 




/30E3 


ERR ID 


0867 





4400 


0FC4 


G64A 


BSI 


L 


F005 


CK LOCK ON ERROR 


0869 





70F2 






MDX 




A64A 


LOOP 










»*»*••**»*•»»*•*»»*»**»»**»**»»***»»***»**♦»* 


08 6A 





CO 12 




A64C 


LD 




N643 


LD /OOOO 


086B 





DOOF 






STO 




N640 


SAVE 


08 6C 





63FF 






LDX 


3 


-1 


LD XR 3 NITH /FFFF 


0860 





6600 






STX 


3 


N640 


STORE CXXR 3a AT N640 


086E 





COOC 






LO 




N640 


LD CXN640B 


086F 





FOOE 






EOR 




N644 


ZERO NITH /FFFF 


0870 





4C18 


0675 




BSC 


L 


G64C,£- 


BRANCH ON ZERO 


0872 





4400 


0F69 




BSI 


L 


FOOO 


XR 3 NOT STORED 


0874 





30E4 






OC 




/30E4 


ERR ID 


0875 





4400 


0FC4 


G64C 


BSI 


L 


F005 


CK LOCK ON ERROR 


0877 





70 F2 






MDX 




A64C 


LOOP 


0878 





C004 






LD 




N643 


LO /OOOO 


0879 





D001 






STO 




N640 


RESTORE N640 TO /OOOO 


087A 





7004 






MDX 




A660 


EXIT TO NEXT ROUTINE 


0876 





OOOO 




N640 


DC 




/OOOO 




067C 





0814 




N642 


DC 




K640 




0870 





OOOO 




N643 


OC 




/OOOO 




087E 





FFFF 




N644 


DC 




/FFFF 





CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS iDESEQ* AT RIGHT 





087F 





6100 




A660 


LDX 


1 





LD XR 1 WITH /OOOO 




0880 





6200 






LDX 


2 





LD XR 2 WITH /OOOO 




0881 





6300 






LDX 


3 





LD XR 3 WITH /OOOO 




0882 





61 FF 






LOX 


1 


-1 


LD XR I MITH /FFFF 




0883 





6A44 






STX 


2 


N660 


CK FOR DISTRUCTION OF 




0884 





C043 






LO 




N660 


OTHER INDEXES 




0885 





4C18 


088A 




BSC 


L 


G660t £ 


BRANCH ON ZERO 




0887 





4400 


0F69 




BSI 


L 


FOOO 


XR 2 CHANGED 




0B89 





3157 






DC 




/3157 


ERR 10 




088A 





4400 


0F98 


G660 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




088C 





70F2 






MDX 




A660 


LOOP 




088D 





6B3A 






STX 


3 


N660 


STORE CXXR 3a AT N660 




088E 





C039 






LD 




N660 


LO CXN660O 




088F 





4C18 


0894 




BSC 


L 


G661,£ 


BRANCH ON ZERO 


DATE 
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415490 415490C 


419643 


420403 


420403A 



PART NO. 2191204 
PAGE 30A 



3A140140 
3A140150 
3A140160 
3A140170 
3A140180 
3A140190 
3A140200 
3A140210 
3A140220 
3A 1402 30 
3A140240 
3A 140250 
3A140260 
3A140270 
3A140280 
3A140290 
3A140300 
3A140310 
3A140320 
3A140330 
3A1 40340 
3A140350 
3A140360 
3A140370 
3A 140 380 
3 A 140 390 
3A14040C 
3A 1404 10 
3A 140420 
3A 140430 
3A140440 
3A 140450 
3A140460 
3A 140470 
3A140480 
3A140490 
3A140500 
3A 1405 10 
3A 140520 
3A 1405 30 
3A 140540 
3A 140550 
3A 140 560 
3A140570 
3A140S80 
3A 140590 
3A140600 
3A 140610 
3A140620 
3A 1406 30 
3A140640 
3A140650 
3A 140660 
3A140670 
3A140680 
3A 140690 
3A1 40700 
3A140710 
3A140720 
3A 1407 30 
3A140740 
3A140750 
3A140760 
3A 140770 
3A140780 
3A140790 
3A140600 
3A140810 
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c 
c 



DATE 

EC NO. 



tun ■ 

0891 





4400 


0F69 




BSI 


L 


FOOO 


XR 3 CHANGED 


3A140820 


c 


0893 





3158 






DC 




/3158 


ERR ID 


3A140830 




0894 





4400 


0FC4 


G661 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A140840 


c 


0896 





70 EB 






MDX 




A660 


LOOP 


3A 140850 












*«»»»»•»*»»»»»»»*»»**•*»*••»»••»•»»*»*«*»»•*» 


3A140860 


c 


0897 





6100 




A662 


LDX 


1 





LD XR 1 WITH /OOOO 


3A 140870 


0898 





6200 






LDX 


2 





LD XR 2 WITH /OOOO 


3A140880 




0899 





6300 






LDX 


3 





LO XR 3 WITH /OOOO 


3A 140890 




089A 





62FF 






LDX 


2 


-1 


LO XR 2 WITH /FFFF 


3*140900 





0898 





692C 






STX 


1 


N660 


STORE CSXR ID AT N660 


3A 1409 10 




089C 





C02B 






LD 




N660 


LO CSN660Q 


3A140920 




089D 





4C18 


08A2 




BSC 


L 


6662, t- 


BRANCH ON 2ER0 


3A140930 


c 


089F 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 CHANGED 


3 Al 40940 




08A1 





3159 






DC 




/3159 


ERR ID 


3A 1409 50 




08A2 





4400 


0F98 


6662 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 40960 


L 


08A4 





70 F2 






MDX 




A662 


LOOP 


3A 140970 




08A5 





6B22 






STX 


3 


N660 


STORE CSXR 3 AT N660 


3A1409B0 




08A6 





C021 






LD 




N660 


LD CSN660D 


3A 140990 


C 


08A7 





4C18 


08AC 




BSC 


L 


6663, C- 


BRANCH ON ZERO 


3A141000 


08A9 





4400 


0F69 




BSI 


L 


FOOO 


CK LOCK ON ERROR 


3*141010 


i 


08*8 





315A 






DC 




/315A 


ERR 10 


3A141020 


C i 


08AC 





4400 


0FC4 


G663 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141030 


1 


08AE 





70EB 






MDX 




A662 


LOOP 


3*141040 


J 










»»**»»»»**»•***«*»**»»»*»**»»*»•*»»»»•»»»***» 


3A 141050 


C ; 


OBAF 





6100 




A664 


LDX 


1 





CK DISTRUCTION OF 


3*141060 


! 


08 BO 





6200 






LDX 


2 





OTHER INDEXES 


3*141070 


f 


08B1 





6300 






LDX 


3 





XR8S HAVE /OOOO 


3A141080 


c 


08B2 





63 FF 






LDX 


3 


-1 


LD XR 3 WITH /FFFF 


3A141090 




0883 





6914 






STX 


1 


N660 


STORE CSXR Id AT N660 


3*141100 


_ 


0BB4 





CO 13 






LD 




N660 


LD CSN660D 


3A141110 


o i 


08BS 





4C18 


08BA 




BSC 


L 


6664, £- 


BRANCH ON ZERO 


3A141120 


i 


08B7 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 CHANGED 


3*141130 


08B9 





3156 






DC 




/315B 


ERR ID 


3*141140 


o 


08BA 





4400 


0F98 


G664 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*141150 




08BC 





70F2 






MOX 




A664 


LOpP 


3A141160 




08BD 





6A0A 






STX 


2 


N660 


STORE CSXR 2o AT N660 


3A141170 


• 


08BE 





C009 






LO 




N660 


LO CSN660O 


3A1411B0 




08BF 





4C18 


08C4 




BSC 


L 


6665, C- 


BRANCH ON ZERO 


3A 14 1190 




08C1 





4400 


0F69 




BSI 


L 


FOOO 


XR 2 CHANGED 


3A 141 200 


• 


08C3 





315C 






DC 




/315C 


ERR ID 


3*141210 




08C4 





4400 


0FC4 


G665 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141220 




08C6 





70E8 






MDX 




A664 


LOOP 


3A141230 


• 


08C7 





7001 






MDX 




A670 


EXIT TO NEXT ROUTINE 


3*141240 




08C8 





0000 




N660 


DC 









3A141250 


• 










»»•»»»*»»»»•«»»*»•*»*»•»*•»»»»*»»•*»»*»*»«*** 


3A141260 


08C9 





6110 




A670 


LDX 


1 


16 


LD XR 1 WITH /0010 


3*141270 




08CA 





C010 






LD 




N670 


LOAD ONE 


3A141280 




08CB 





4C18 


08D4 


G671 


BSC 


L 


6670, C- 


NOT BR FOR CORRECT OP 


3A 14 1290 


• 


08C0 





1001 




G672 


SLA 




1 




3A 141 300 




08CE 





71 FF 






MDX 


1 


-1 


-1 FROM CSXR ID 


3*141310 




08CF 





70FB 






MDX 




G671 




3A141320 


• 


08D0 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A 14 1330 




08D2 





70F6 






MDX 




A670 


LOOP 


3A141340 




08D3 





7008 






MDX 




A680 


EXIT TO NEXT ROUTINE 


3A 14 1350 


t 


08D4 





4400 


OF 69 


G670 


BSI 


L 


FOOO 


WRONG DECODE OF ZERO ACC 


3A141360 




08D6 





3169 






DC 




/3169 


ERR ID 


3A 14 1370 




0807 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*141380 





0BD9 





70EF 






MDX 




A670 


LOOP 


3A 14 1390 




OBDA 





70F2 






MDX 




G672 




3A141400 




08DB 





0001 




N670 

• 
• 
• 


DC 




1 

TEST 


OF ADD OPERATION 


3*141410 
3A141420 
3A 14 1430 
3A141440 














•**••••*••••••••••••*•*•*•*••*••••••••••••••• 


3A141450 




*•••••••*••••»*•*••••«••••«•••*•*•*•*•*•*•••***••••••••*•*•••**•»•••*•• 


3A141460 




CORE 




OATA CR 


•LA- 


OPER- 








3A 14 1470 





AODR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANOS 


t REMARKS IDCSEOB AT RIGHT 


3*141480 




*•*»*»»*»*»*»*»»»«»*»»»**«*»»»»»»»»*»»»*»»»»«»»»»*»*****»****♦»»*»»»*»» 


3A 14 1490 


• 


02JAN66 


D1MAY66 


15N0V66 


15FEB6S 26*0668 


PROG ID 03A1-1 • 
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OBDC 





2002 




A 680 


LOS 




2 


SET CARRY ON 


3A141500 






08DD 





C06E 






LD 




NfcBO 


LD /FFFF 


3*141510 






08DE 





806E 






A 




N681 


A /OOOO 


3*141520 






08DF 





4C01 


08E2 




BSC 


L 


6680,0 


CK FOR OVERFLOW ON 


3A141530 






08E1 





7003 






MDX 




H6B0 


OVERFLOW IS OFF 


3*141540 






0BE2 





4400 


0F69 


G6B0 


BSI 


L 


FOOO 


OVERFLOW IS ON 


3*141550 






0BE4 





30E5 






OC 




/30E5 


ERR ID 


3*141560 






08E5 





4400 


0F98 


H680 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*141570 






08E7 





70F4 






MDX 




A6B0 


LOOP 


3A141580 






OSES 





F063 






EOR 




N680 


CK IF ADD ZERO 


3A141590 






08E9 





4C18 


08EE 




BSC 


L 


6682, t- 


• CHANGED ACC 


3A141600 






OBEB 





4400 


0F69 




BSI 


L 


FOOO 


ADD 1 AND FAILED 


3A141610 






08E0 





30E6 






DC 




/30E6 


ERR ID 


3A1 41620 






08EE 





4400 


0FC4 


G6B2 


RSI 


L 


F005 


CK LOCK ON ERROR 


3A141630 






08F0 





70EB 






MOX 




A680 


LOOP 


3 Al 41640 














»»**»»»»»»»»»»»»*»«»»•»******»•»••»•»*»»»•»»• 


3A141650 






08F1 





2000 




A 684 


LOS 







SET C AND OF OFF 


3A141660 






08F2 





CO 59 






LD 




N660 


LD /FFFF 


3A141670 






08F3 





805A 






A 




N682 


A /0001 


3A1416B0 






0BF4 





4C02 


08F9 




BSC 


L 


6684.C 


CK IF CARRY OCCURED 


3A141690 






08F6 





4400 


OF 69 




BSI 


L 


FOOO 


CARRY NOT ON 


> 3A141700 






08F8 





30E7 






DC 




/30E7 


ERR ID 


3A141710 






08F9 





4400 


0F98 


G684 


8S1 


L 


FOOE 


CK LOCK ON ERROR 


3A141720 






08FB 





70F5 






MDX 




A684 


LOOP 


3A141730 






08FC 





4C18 


0901 




BSC 


L 


6686, t- 


BRANCH ON ZERO 


3A141740 






08FE 





4400 


0F69 




BSI 


L 


FOOO 


ADD FFFFtOOOl FAILED 


3*141750 






0900 





30E8 






DC 




/30E8 


ERR ID 


3A141760 






0901 





4400 


0FC4 


G686 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141770 






0903 





70ED 






MDX 




4684 


LOOP 


3A1417B0 














••••«••*••*•••••«•*•••*•*****••*•*•*••••••••• 


3A141790 






0904 





2000 




A688 


LDS 







SET C AND OF OFF 


3*141800 






0905 





C046 






LD 




N680 


LD /FFFF 


3A141810 






0906 





8045 






* 




N680 


A /FFFF 


3A141820 






0907 





4C02 


090C 




BSC 


L 


G688,C 


BR ON CARRY 


3A 14 1830 






0909 





4400 


OF 69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A141840 






090B 





30 E9 






DC 




/30E9 


ERR ID 


3A 14 1850 






090C 





44C0 


0F98 


G68B 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141860 






090E 





70F5 






MDX 




A688 


LOOP 


3A 14 1870 






090F 





F042 






EOR 




N687 


ZERO WITH /FFFF 


3A1418S0 






0910 





4C18 


0915 




BSC 


L 


G68A,£- 


BRANCH ON ZERO 


3A 14 1890 






0912 





4400 


OF 69 




BSI 


L 


FOOO 


ADD FFFFtFFFF FAILED 


3A141900 






0914 





30FA 






OC 




/30FA 


ERR ID 


3A141910 






0915 





4400 


0FC4 


G68A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3 Al 41920 






0917 





70 EC 






HDX 




A688 


LOOP 


3A141930 














•»»*»»»*»*»*»**•**»**»»*****»»»••*»*»»**•»»»* 


3A1 41940 






0918 





2000 




A68C 


LDS 







SET C AND OF OFF 


3A141950 






0919 





C035 






LD 




N683 


LD /4000 


3A141960 






091 A 





BO 34 






* 




N683 


A /4000 


3A141970 






091B 





4C01 


0920 




BSC 


L 


G68C0 


BR IF OF NOT ON 


3A1419B0 






09 ID 





4400 


0F69 




BSi 


L 


FOOO 


OVERFLOW NOT ON 


3A141990 






091 F 





30EB 






DC 




/30EB 


ERR ID 


3A142000 






0920 





4400 


0F98 


G68C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A142010 






0922 





70F5 






MDX 




«68C 


LOOP 


3A142020 






0933 





F02C 






EOR 




N684 


ZERO WITH /BOOO 


3A14203O 






0924 





4C18 


0929 




BSC 


L 


668 E, C- 


BRANCH ON ZERO 


3A1 42040 






0926 





4400 


0F69 




BSI 


L 


FOOO 


ADD 4000C4000 FA I LEO 


3A142050 






0928 





30EC 






DC 




/30EC 


ERR ID 


3A142060 






0929 





4400 


0FC4 


G68E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A142070 






092B 





70EC 






MDX 




A68C 


LOOP 


3A1 42080 














••*••••*•*•••••••••»**««•*****••**••••••••*•• 


3A142090 






092C 





2000 




B680 


LOS 







SET C AND OF OFF 


3A142100 






092D 





CO 22 






LO 




N684 


LD /8000 


3A142110 






092E 





8021 






* 




N684 


A /8000 


3*142120 






092F 





2823 






STS 




N688 


STORE C AND OF CONO 


3A 142 130 






0930 





4C18 


0935 




BSC 


L 


J680.C- 


BRANCH ON ZERO 


3A142140 






0932 





4400 


0F69 




BSI 


L 


FOOO 


ADD 8000C8000 FAILED 


3A142150 






0934 





30E0 






DC 




/30ED 


ERR ID 


3A142160 






0935 





4400 


0F98 


J6B0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1421T0 




DATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG 10 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 


420403A 


PAGE 


S1A 
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C 

£ 

C 



DATE 
EC NO. 



0937 


70F4 






HOX 




B680 


LOOP 


0938 


C01A 






LO 




N688 


LO C ANO OF CONO 


0939 


F017 






EOR 




N686 


ZERO WITH /OO03 


09 3 A 


4C18 


0948 




BSC 


L 


J682,t- 


BRANCH ON ZERO 


093C 


4C04 


0945 




BSC 


I 


K682.E 


BR ON NOT EVEN 


093E 


4400 


0F69 




BSI 


L 


FOOO 


CARRY NOT ON 


0940 


30EF 






oc 




/30EF 


ERR ID 


0941 


4400 


0FC4 




esi 


L 


F005 


CK LICK ON ERROR 


0943 '0 


706 8 






MDX 




B6B0 


LOOP 


0944 


700F 






MDX 




A6C0 


EXIT TO NEXT ROUTINE 


0945 


4400 


OF 69 


K682 


BSI 


L 


FOOO 


OVERFLOW NOT ON 


0947 


30EE 






DC 




/30EE 


ERR 10 


0948 


4400 


0FC4 


J682 


BSI 


L 


F005 


CK LOCK ON ERROR 


094A 


70E1 






MDX 




B680 


LOOP 


0948 


7008 






MDX 




A6C0 


EXIT TO NEXT ROUTINE 


D94C 


FFFF 




N680 


OC 




/FFFF 




094D 


0000 




N681 


OC 




/OOOO 




094E 


0001 




N6B2 


OC 




/0001 




094F 


4000 




N683 


DC 




/4000 




0950 


8000 




N684 


DC 




/8G00 




0951 


0003 




N686 


OC 




/0003 




0952 


FFFE 




N687 


DC 




/FFFE 




0953 


0000 




N688 

* 


DC 




/OOOO , 


STORAGE 



• INDEXING TEST 

CORE DATA OR »LA- OPER- 

ADOR INSTRUCTION «BEL ATION FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 

LO XR 1 WITH -4 

LD CSN6C4CXR In 

ZERO ACC IF CORRECT OP 

BR IF NOT ZERO 

STORE CXXR la AT N6C9 

GET XR 1 VALUE 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

XR 1 LOADED WRONG 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

WRONG LOCATION 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LD XR 2 WITH 14 

LD CSN6C4CXR 2n 

ZERO ACC IF CORRECT 

BR IF NOT ZERO 

STORE XR 2 AT N6C9 

GET XR 2 VALUE 

ZERO ACC IF CORRECT 

BRANCH ON Z "RO 

XR 2 LOADED WRONG 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

WRONG LOCATION 

ERR ID 

CK LOCK ON ERROR 

LOOP 

A6C4 LOX 3 SET XR 3 TO ZERO 



09 54 





61FC 




A6C0 


LOX 


1 


-4 


0955 





C500 


0900 




LD 


LI 


N6C4 


0957 





F074 






EOR 




N6C0 


0958 





4C20 


0966 




BSC 


L 


H6C0tZ 


09 5 A 





697A 






STX 


1 


N6C9 


095B 





C079 






LD 




N6C9 


09 5C 





F079 






EOR 




N6CA 


095D 





4C18 


0969 




BSC 


L 


G6C0.C- 


09 5F 





4400 


0F69 




BSI 


L 


FOOO 


0961 





30F0 






DC 




/30F0 


0962 





4400 


0FC4 




BSI 


L 


F005 


0964 





70EF 






MDX 




A6C0 


0965 





7006 






MDX 




A6C2 


0966 





4400 


OF 69 


H6C0 


BSI 


L 


FOOO 


0968 





30F1 






DC 




/30F1 


0969 





4400 


0FC4 


G6C0 


BSI 


L 


F005 


096B 





70E8 






MOX 




A6C0 


09 6C 





6204 




A6C2 


LOX 


2 


4 


0960 





C600 


09D0 




LO 


L2 


N6C4 


09 6F 





F064 






EOR 




N6C8 


0970 





4C20 


097E 




BSC 


L 


H6C2.Z 


0972 





6A62 






STX 


2 


N6C9 


0973 





C061 






LD 




N6C9 


0974 





F062 






EOR 




N6CB 


0975 





4C18 


0981 




BSC 


L 


G6C2tt- 


0977 





4400 


0F69 




BSI 


L 


FOOO 


0979 





30F2 






DC 




/30F2 


097A 





4400 


0FC4 




BSI 


L 


F005 


09 7C 





70EF 






MOX 




A6C2 


09 7D 





7006 






MOX 




A6C4 


097E 





4400 


OF 69 


H6C2 


BSI 


L 


FOOO 


0980 





30 F3 






OC 




/30F3 


0981 





4400 


0FC4 


G6C2 


BSI 


L 


F005 


0983 





70 E8 






MDX 




A6C2 



0964 6300 
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3A142180 
3A142190 
3A142200 
3A142210 
3A142220 
3*142230 
3A142240 
3A142250 
3A142260 
3A142270 
3A142280 
3A 142290 
3A 142 300 
3A142310 
3A142320 
3A 142330 
3A 142 340 
3A 142350 
3*142360 
3A142370 
3A1423B0 
3A142390 
3A1424O0 
3*142410 
3A1 42420 
3A 142430 
3A142440 
3A 142450 
3A142460 
3A 142470 
3A142480 
3A142490 
3A142500 
3A142510 
3A142520 
3A 142530 
3A142540 
3A 142550 
3A142560 
3A142570 
3A142580 
3A142590 
3A142600 
3A142610 
3A142620 
3A142630 
3A142640 
3A142650 
3A142660 
3A 142670 
3A142680 
3A 142690 
3A142700 
3A142710 
3A142720 
3A142730 
3A142740 
3A142750 
3A142760 
3A 142770 
3A142780 
3A 142790 
3A142800 
3A142810 
3A142820 
3A142830 
3A142840 
3 A 142850 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
32 



i 

c ! 

cf 

c 
c 
c 
c 

G 

G 
C 
C 
G 
G 

• 

• 

e 
o 



o 

o 
• 

6 
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3 
3 





0985 





C700 


09DO 




LO 


L3 


N6C4 


LO CXN6C4&XR 3a 


3A142860 






0987 





F048 






EOR 




N6C4 


ZERO ACC IF CORRECT 


3A142870 






0988 





4C20 


0995 




BSC 


L 


H6C4.Z 


BR IF NOT" ZERO 


3A1 42880 


3 




098A 





6B4A 






STX 


3 


N6C9 


STORE XR 3 AT N6C9 


3A 142890 






09 BB 





C049 






LO 




N6C9 


LD /OOOO 


3A142900 






09 BC 





4CH 


0998 




BSC 


L 


UU,£- 


BRANCH ON ZERO 


3A 1429 10 


3 




098E 





4400 


OF 69 




BSI 


L 


FOOO 


XR 3 LOADED WRONG 


3A142920 






0990 





30 F4 






DC 




/30F4 


ERR ID 


3A142930 






0991 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A142940 


j 




0993 





70F0 






MOX 




A6C4 


LOOP 


3A142950 






0994 





7006 






MOX 




A6C6 


EXIT TO NEXT ROUTINE 


3A142960 






0995 





4400 


0F69 


H6C4 


BSI 


L 


FOOO 


WRONG LOCATION 


3A 142970 


_ 




0997 





30F5 






DC 




/30F5 


ERR ID 


3A142980 






0998 





4400 


0FC4 


G6C4 


BSI 


L 


F005 


CK LUCK ON ERROR 


3A142990 






099A 





70E9 






MOX 




A6C4 


LOOP 


3A1 43000 














*•«**•••••****••«**•*•****»»*•**«****»•**«»** 


3*143010 






099B 





6301 




A6C6 


LOX 


3 


1 


SET XR 3 TO tl 


3A143020 






099C 





C700 


0900 




LO 


L3 


N6C4 


LD CSN6C4CXR 3d 


3A 143030 


•> 




099 E 





F032 






EOR 




N6C5 


ZERO FOR CORRECT OP 


3A1 43040 






099F 





4C20 


09A0 




BSC 


L 


H6C6.2 


BR IF NOT ZERO 


3A 14 3050 






09 A 1 





6B33 






STX 


3 


N6C9 


STORE XR 3 AT N6C9 


3A 143060 


3 




09A2 





CO 32 






LD 




N6C9 


LD C»N6C9n 


3A 143070 






09 A 3 





F034 






EOR 




N6CD 


ZERO ACC FOR CORRECT OP 


3*143080 






09 A4 





4C1B 


09B0 




BSC 


L 


66C6,£- 


BRANCH ON ZERO 


3A 143090 


3 




09A6 





4400 


0F69 




BSI 


L 


FOOO 


XR 3 LOAOED WRONG 


3A143100 






09A8 





30 F6 






DC 




/30F6 


ERR ID 


3A 143 110 






09A9 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A143120 


3 




09AB 





70 EF 






MDX 




A6C6 


LOOP 


3A143130 






09AC 





7006 






MDX 




A6C8 


EXIT TO NEXT ROUTINE 


3A143140 






09AD 





4400 


0F69 


H6C6 


BSI 


L 


FOOO 


WRONG LOCATION 


3A143150 


3 




09AF 





30F7 






DC 




/30F7 


ERR ID 


3A143160 






09B0 





4400 


0FC4 


G6C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A143170 






09B2 





70E8 






MDX 




A6C6 


LOOP 


3*143180 


3 












*•*•***•••••••*•••*•*•*•*•••**•**••*••**••••• 


3A 143190 






09B3 





63FF 




A6C8 


LOX 


3 


-1 


SET XR 3 TO -1 


3A143200 






09 B4 





C7B0 


09DA 




LD 


S3 


N6CF 


LO CXN6CFCXR 3D 


3*143210 







09B6 





F019 






EOR 




N6C4 


ACC NOW ZERO 


3A143220 






09 B7 





4C20 


09C5 




BSC 


L 


H6C8.Z 


BR IF NOT ZERO 


, 3A143230 






09 B9 





6B1B 






STX 


3 


N6C9 


STORE XR 3 AT N6C9 


3A143240 







09BA 





C01A 






LD 




N6C9 


LD CSN6C9D 


3A143250 






09BB 





F01E 






EOR 




N6CF 


ZERO WITH /FFFF 


3 Al 43260 






09 BC 





4C18 


09C8 




BSC 


I 


G6C6.C 


BRANCH ON ZERO 


3A143270 


3 




09BE 





4400 


0F69 




BSI 


L 


FOOO 


XR 3-LOADEO WRONG 


3*143280 






09CO 





30 F8 






DC 




/30F8 


ERR ID 


3A143290 






09C1 





4400 


0FC4 




BSI 


L 


FOCS 


CK LOCK ON ERROR 


3A143300 







09C3 





70 EF 






MDX 




A6C8 


LOOP 


3A143310 






09C4 





7017 






MDX 




A6D0 


EXIT TO NEXT ROUTINE 


3*143320 






09C5 





4400 


OF 69 


H6C8 


BSI 


L 


FOOO 


WRONG LOCATION 


3A 143330 


9 




09C7 





30F9 






DC 




/30F9 


ERR ID 


3A143340 






09C8 





4400 


0FC4 


G6C8 


BSI 


L 


FQ05 


CK LOCK ON ERROR 


3A143350 






09CA 





70E8 






MDX 




A6C8 


LOOP 


3*143360 


• 




09CB 





7010 






MDX 




A6D0 


EXIT TO NEXT ROUTINE 


3A1433T0 






09CC 





09CC 




N6C0 


OC 




N6C0 




3A1 43380 






09C0 





09 CO 




N6C1 


DC 




N6C1 




3*143390 


• 




09CE 





09CE 




N6C2 


OC 




N6C2 




3*143400 






09CF 





09CF 




N6C3 


DC 




N6C3 




3*143410 






09D0 





090 




N6C4 


DC 




N6C4 




3*143420 


• 




0901 





0901 




N6C5 


DC 




N6CS 




3A143430 






0902 





0902 




N6C6 


OC 




N6C6 




3*143440 






0903 





0903 




N6C7 


OC 




N6C7 




3A 143450 


• 




0904 





0904 




N6C8 


DC 




N6C8 




3*143460 






09D5 





OOOO 




N6C9 


DC 




/OOOO 




3A143470 






0906 





FFFC 




N6CA 


DC 




/FFFC 




3A143480 


• 




09D7 





0004 




N6CB 


DC 




/0004 




3A 143490 






0908 





0001 




N6C0 


DC 




/0001 




3A143500 






09 D9 





0900 






DC 




N6C4 




3*143510 


• 




090A 





FFFF 




N6CF 


DC 




/FFFF 




3*143520 






0908 





70D7 






MOX 




A6C8 


LOOP 


3*143530 





DATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUC6S 


PROG 10 03A1-1 • 


EC NO. 
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»»»»»»•»»*•»*»»•»»•*****»***»«•♦*******»*»»»****»»**»*»**»*******»***** 

CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS t REMARKS 1D£SEQ# AT RIGHT 

*»»*»»•••»**»*»»*»»*»»»*»»♦»»***»»»»*»*»»»»»*»*»*»***»***»***»***»***** 



09DC 6500 09CD 



A600 LDX LI N6C1 



09DE 
09DF 
09E0 
09E2 
09E4 
09E5 
09E7 



C1FF 
FOEC 

4C18 09E5 
4400 0F69 
315D 

4400 0FC4 
70 F4 



H600 



ID 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



-1 
N6C0 

H6D0,£- 

FOOO 

/3I5D 

F005 

AbDO 



LD XR 1 WITH ADDRESS 

* OF N6C1 

SHORT FORM INDEXING 

ZERO IF CORRECT 

BRANCH ON ZERO 

INDEXEO LD INST. FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



**•••*••••**••••••«****••********•••********* 



09E8 6600 09CD 



09EA 
09EB 
09 EC 
09EE 
09F0 
09F1 
09F3 

09 F4 
09F6 
09F7 
09F8 
09FA 
09FC 
09F0 
09FF 



C201 
F0E2 

4C18 09F1 
4400 OF 69 
315E 

4400 0FC4 
70 F4 

6700 09C0 
C300 
F0D5 

4C18 09F0 
4400 OF 69 
315F 

4400 0FC4 
70F4 



A6D? 



H602 



LDX L2 N6C1 LD XR 2 HITH ADORESS 

* OF N6C1 

LD 2 1 LD CXOF ADDRESS IN XR ltlo 

EOR N6C2 ZERO IF CORRECT 

BSC L H6D2tC- BRANCH ON ZERO 

BSI L FOOO INOEXED LD INST. FAILED 

DC /315E ERR ID 

BSI L F005 CK LOCK ON ERROR 

MDX A6D2 LOOP 



OAOO 
0A01 
0A02 
0A03 
0A04 
0A06 
0A08 
0A09 
OAOB 

OAOC 
OAOD 
OAOE 
OAOF 
0A10 
0A12 
0A14 
0A15 
0A17 



6102 
C0D6 
1101 
F003 

4C18 0A09 
4400 0F69 
3163 

4400 0FC4 
70F4 

6202 
C0C9 
1A01 
F0C8 

4C18 0A15 
4400 OF 69 
3164 

4400 0FC4 
70 F4 



•••a***************************************** 

A6D3 LDX L3 N6C1 LD XR 3 WITH ADD OF N6C1 

LD 3 LD C*OF ADD IN XR 3 £ On 

EOR N6C1 ZERO IF CORRECT 

BSC L H603.E- BRANCH ON ZERO 

BSI L FOOO INDEXED LD INST. FAILED 

DC /315F ERR ID 

H603 BSI L F005 CK LOCK ON ERROR 

MDX A6D3 LOOP 

»»»»»»»•»**»»•»*»»»*•»»»*»*»»•»*»•»♦*»»»»•*** 

A6D5 LDX 12 LD XR 1 WITH £2 

LD N6CD LD /0001 

SLA 1 1 NOW A#/0004 

EOR N6CB NOW AH/0000 

BSC L H6D5,£- BRANCH ON ZERO 

BSI L FOOO INDEXEO SLA FAILED 

DC /3163 ERR ID 

H6D5 BSI L F005 CK LOCK ON ERROR 

MDX A6D5 LOOP 

A6D6 LDX 2 2 LD /00004 

LD N6CB NOW At/0001 

SRA 2 1 ZERO ACC 

EOR N6C0 ZERO WITH /0001 

BSC L H606t£- BRANCH ON ZERO 

BSI L FOOO INDEXED SRA FAILED 

DC /3164 ERR ID 

H6D6 BSI L FOOS CK LOCK ON ERROR 

MDX A6D6 LOOP 



•a******************************************* 
* TEST INDEXED BSC 

»»•«**»»»*»»»»»»»»*»»•»«»«**♦»**»»»»»»»»»•**»»*»»*********»***•»*»»»»** 

CORE DATA OR *LA- OPER- 

AODR INSTRUCTION »BEL ATION FT OPERANDS C REMARKS IDtSfcO* AT RIGHT 





0A18 6301 


A6F0 LDX 


3 1 


LD XR 3 WITH tl 




0A19 COOE 


LD 


N6F1 


LO CSOF LABEL N6F1D 




0A1A 4F0O 0A1D 


BSC 


L3 N6F0 


BR TO CSN6F0CXR 3o 




0A1C 3000 


WAIT 




INOEXED BSC FAILED 




0A1D 3000 


N6F0 WAIT 




INDEXED BSC FAILED 




0A1E F009 


EOR 


N6F1 


CK FOR DISTROVED ACC 


DATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 
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420403 


420403A 



PART NO. 2191204 
PAGE 33 



3A143540 

3A143550 

3A143560 

3A143570 

3A143580 

3A 143590 

3A143600 

3A143610 

3A143620 

3A 143630 

3A143640 

3A 143650 

3A143660 

3A143670 

3A143680 

3A 143690 

3A143700 

3A 14 37 10 

3A143720 

3A143730 

3A1 43740 

3A143750 

3A143760 

3A143770 

3A143780 

3A 143790 

3A143B00 

3A143810 

3A143820 

3A143830 

3A143840 

3A143850 

3A143860 

3A143B70 

3A143880 

3A143890 

3A143900 

3A143910 

3A143920 

3A143930 

3A1 43940 

3A143950 

3A143960 

3A143970 

3A143980 

3A143990 

3A144000 

3A144010 

3A144020 

3A144030 

3A144040 

3A 144050 

3A144060 

3A144070 

3A14408G 

3A 144090 

3A144100 

3A 1441 10 

3A144120 

3A144130 

3A144140 

3A144150 

3A144160 

3A144170 

3A144180 

3A144190 

3A144200 

3A144210 



cl 

r 
I 

C 

c 
c 
o 
c 
c 
c 

G 
O 

o 
c 



e 



PROG ID 
PAGE 



03A1-1 

33 



(I 

o 
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0A1F 





4C18 


0A24 




BSC 


L 


H6F0 t £- 


BRANCH ON ZERO 


0A21 





4400 


0F69 




BSI 


L 


FOOO 


ACC DISTROVED 


0A23 





3165 






DC 




/3165 


ERR ID 


0A24 





4400 


0FC4 


H6F0 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


0A26 





70F1 






MDX 




A6F0 


LOOP 


0A27 





7001 






MDX 




A6F1 


EXIT TO NEXT ROUTINE 


0A28 





0A28 




N6F1 


DC 




N6F1 












»»»*«*»»»»*»»»»»*»*»»»»»»»»»»•»*«•»•••»»»»»»» 


0A29 





6201 




' A6F1 


LDX 


2 


1 


LD XR 2 WITH Cl 


0A2A 





4E80 


0A2D 




BSC 


12 


N6F2 


BR TO N6F2C1 INDIRECT 


0A2C 





7005 






MDX 




H6F1 


BSC FAILED 


0A2D 





7004 




N6F2 


MDX 




H6F1 


BSC FAILED 


0A2E 





0A31 






DC 




N6F3 




0A2F 





7002 






MDX 




H6F1 


BSC FAILED 


0A30 





7001 






MDX 




H6F1 


BSC FAILED 


0A31 





7003 




N6F3 


MDX 




H6F2 




OA32 





4400 


OF 69 


H6F1 


BSI 


L 


FOOO 


BSC DID NOT BRANCH 


0A34 





3166 






DC 




/3166 


ERR ID 


OA35 





4400 


0FC4 


H6F2 


BSI 


L 


F005 


CK LOCK ON ERROR 


0A37 





70F1 






MDX 




A6F1 


LOOP 



•••ft***************************************** 
» TEST OF SUBTRACT OPERATION 

SET C AND OF OFF 

LD /OOOO 

S /0001 A NOW /FFFF 

STORE CARRY INO. TO N702 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

0000 MINUS 0001 FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LD CARRY INDICATION 

ZFRO IF CORRECT 

BRANCH ON ZERO 

CARRY NOT ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 

SET C AND OF OFFC 

LD /OOOO 

S /FFFF 

STORE CARRY ON CONDITION 

ZERO WITH /0001 

BRANCH ON ZERO 

OOOO MINUS FFFF FAILEO 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LD CARRY COND FROM N702 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

CARRY NOT SET 

ERR ID 

CK LOCK ON ERROR 

LOOP 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS 1DESEQ* AT RIGHT 

0A66 2000 A708 LDS SET C AND OF OFF 

0A67 C03D LD N705 LD /8000 

0A68 9038 S N701 S /0001 



0A38 


2000 




A700 


LDS 







0A39 


C066 






LO 




N700 


0A3A 


9066 






S 




N701 


0A3B 


2866 






STS 




N702 


0A3C 


F066 






EOR 




N703 


0A3D 


4C18 


0A42 




BSC 


L 


G700.C- 


0A3F 


4400 


0F69 




BSI 


L 


FOOO 


0A41 


30FA 






DC 




/30FA 


0A42 


4400 


0F98 


G700 


BSI 


L 


FOOE 


0A44 


70F3 






MDX 




A 700 


0A45 


C05C 






LD 




N702 


0A46 


F05D 






EOR 




N704 


0A47 


*C18 


0A4C 




BSC 


L 


G702.C- 


0A49 


4400 


OF 69 




BSI 


L 


FOOO 


0A4B 


30 FB 






DC 




/30FB 


0A4C 


4400 


0FC4 


G702 


BSI 


L 


F005 


0A4E 


70 E9 






MDX 




A700 








*****»*»*«***»«*»*»»* 


0A4F 


2000 




A704 


LDS 







0A50 


C04F 






LO 




N700 


0A51 


9051 






S 




N703 


0A52 


284F 






STS 




N702 


0A53 


F040 






EOR 




N701 


0A54 


4C18 


0A59 




BSC 


L 


6704, £- 


0A56 


4400 


0F69 




BSI 


L 


FOOO 


0A58 


30FC 






DC 




/30FC 


0A59 


4400 


0F98 


G704 


BSI 


L 


FOOE 


0A5B 


70F3 






MDX 




A704 


0A5C 


C045 






LO 




N702 


0A5D 


F046 






EOR 




N704 


0A5E 


4C18 


0A63 




BSC 


L 


G706.C- 


0A60 


4400 


0F69 




BSI 


L 


FOOO 


0A62 


30 FD 






DC 




/30FD 


0A63 


4400 


0FC4 


G706 


BSI 


L 


F005 


0A65 


70 E9 






MDX 




A704 
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3A144220 
3A 144230 
3A144240 
3A 144250 
3A144260 
3A 1442 70 
3A1442B0 
3A 144290 
3A144300 
3A144310 
3A144320 
3A 144330 
3A144340 
3A 144350 
3 A 144 360 
3A 144370 
3A 144 380 
3A 144390 
3A144400 
3A144410 
3A144420 
3A 144430 
3A144440 
3A 144450 
3A144460 
3A 144470 
3A144480 
3A 144490 
3A144500 
3A 1445 10 
3A144520 
3A 1445 30 
3A144540 
3A 144550 
3A144560 
3A 144570 
3A144580 
3A 144590 
3A144600 
3A144610 
3A144620 
3A144630 
3A144640 
3A 144650 
3A144660 
3A 144670 
3A144680 
3 A 144690 
3A144700 
3A 1447 10 
3A144720 
3A 144730 
3A144740 
3A 144750 
3A144T60 
3A 144770 
3A 144780 
3 A 144790 
3A144800 
3A144810 
3A 144820 
3A144830 
3A144B40 
3A 144850 
3 A 144860 
3A 144870 
3A144880 
3 A 144890 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



1SFEB68 
420403 



26AUG68 
420403A 



PROG ID 
PACE 



03A1-1 
33A 
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DATE 
EC NO. 



0A69 
04 6A 
0A6B 
0A60 
0A6F 
0A70 
0A72 
0A73 
0A74 
0A7S 
0A77 
0A79 
0A7A 
0A7C 



2838 
F03C 
4C18 
4400 
30FE 
4400 
70F3 
C02E 
F02C 
4C18 
4400 
30 FF 
4400 
70 E9 



0A70 
OF 69 

0F98 



0A7A 
0F69 

0FC4 



G708 



G70A 



STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N702 SAVE C C OF CONDITION 

N707 ZERO ACC IF CORRECT OP 

G708,t- BRANCH ON ZERO 

FOOO 8000 MINU 0001 FAILED 

/30FE ERR ID 

FOOE CK LOCK ON ERROR 

A708 LOOP 

N702 LD STORE CARRY CONDITION 

N701 ZERO IF CORRECT 

G70A,C- BRANCH ON ZERO 

FOOO OVERFLOW NOT SET 

/30FF ERR ID 

FOOS CK LOCK ON ERROR 

A708 LOOP 



0A7D 
0A7E 
0A7F 
0A80 
0A81 
0A82 
0A84 
0A86 
0A87 
0A89 
0A8A 
0A8B 
0A8C 
0A8E 
0A8F 
OA90 
0A92 
0A94 
0A95 
0A97 
0A98 
0A99 
0A9B 
0A9C 
-0A9E 
0A9F 
OAAO 
0AA1 
0AA2 
0AA3 
0AA4 
OAAS 
0AA6 
0AA7 



2000 

C021 

9025 

2821 

F023 

4C18 

4400 

3100 

4400 

70F3 

C017 

F01A 

4C1B 

C013 

E011 

4C20 

4400 

3101 

4400 

TOE 5 

700F 

4400 

3102 

4400 

70 DE 

7008 

0000 

0001 

0000 

FFFF 

0002 

8000 

0003 

7FFF 



iviw > i\r ~ _-_ - 



A70C 



0A87 
0F69 

0F98 



0A9C 



0A99 
0F69 

0FC4 



OF 69 
0FC4 



G70C 



J70E 
G70E 



LDS 

LO 

S 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LD 

EOR 

BSC 

LD 

ANO 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 

MOX 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

DC 





N700 

N705 

N702 

N705 

G70C.C- 

FOOO 

/3100 

FOOE 

A70C 

N702 

N706 

G70Et£- 

N702 

N701 

J70E t Z 

FOOO 

/3101 

F005 

A70C 

A740 

FOOO 

/3102 

FOOS 

A70C 

A740 

/OOOO 

/0001 

/OOOO 

/FFFF 

/0002 

/•OOO 

/0003 

/7FFF 



SET C AND OF OFF 

LO /OOOO 

S /8000 

STORE C C OF CONDITION 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

OOOO MINUS 8000 FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

LD CON OF C£0F 

ZERO ACC IF CORRECT 

BRANCH ON ZERO 

LO CON OF C C OF 

AND IN /0001 

BR IF NOT ZERO 

OVERFLOW NOT ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

CARRY NOT ON 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



STORAGE 



CORE 
AODR 

****** 

OAAS 

0AA9 

OAAB 

OAAO 

OAAF 

0AB1 

0AB3 

0AB5 

0AB6 

0AB6 

0AB9 



DATA OR 
INSTRUCTION 

************** 

2000 

CCOO 0B6E 
8C00 0B70 
2C00 0B6D 
F400 0B6E 
4C18 0AB6 
4400 OF 69 
3103 

4400 0F98 
70EF 
1800 



N700 
N701 
N702 
N703 
N704 
N705 
N706 
N707 
* 

••»»**»***»***»*********»**»*»«»»»»*»m*,^ # 

*LA- OPER 

*BEL ATION FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 

***»*******•**»****»******»*,»*«**»»„,„»„„ 

»7tn mc A rr- - 



TEST OF ADD DOUBLE 



, f 

\ 

ci 



G740 



LDS 

LDD 

AD 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 





N742 

N744 

N740 

N742 

G740.C- 

FOOO 

/3103 

FOOE 

A740 

16 



SET C AND OF OFF 
LD At/FFFF Qf/FFFF 
A /OOOO /OOOO 
STORE CON. OF C t OF 

BRANCH ON ZERO 

AD FFFF&OOOO A FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A144900 

3A144910 

3A144920 

3A 1449 30 

3A144940 

3A 144950 

3A144960 

3A 1449 70 

3A144980 

3A 144990 

3A 145000 

3A145010 

3A145020 

3A145030 

3A14S040 

3A145050 

3A145060 

3A145070 

3A145080 

3A145090 

3A1 45100 

3A145110 

3A145120 

3A145130 

3A145140 

3A145150 

3A145160 

3 A 14 5 170 

3A145180 

3A145190 

3A145200 

3A145210 

3A145220 

3A 1452 30 

3A145240 

3A 145250 

3A145260 

3A145270 

3A145280 

3A145290 

3A145300 

3A 1453 10 

3A145320 

3A145330 

3A145340 

3A145350 

3A145360 

3A 145370 

3A145380 

3A145390 

3A1 45400 

3A145410 

3A1 45420 

3A145430 

3A145440 

3A145450 

3A145460 

3A145470 

3A145480 

3A145490 

3A1 45500 

3A145S10 

3A145520 

3A145530 

3A145540 

3A145550 

3A145S60 

3A145570 



PROG ID 
PAGE 





c 

o 
c 



c 



o 
o 



c 
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03A1-1 
34 



• 


t 

• 


• 



I 








OABA F400 0B6E 




EOR 


L 


N742 






OABC 4C1B 0AC1 




BSC 


L 


G742.C- 


BR ON ZERO 




OABE 4400 0F69 
OACO 3104 




BSI 
DC 


L 


FOOO 
/3104 


AD FFFFCOOOO FAILEO 
ERR ID 




0AC1 4400 0F98 
0AC3 70E4 


G742 


BSI 
MDX 


L 


FOOE 
A740 


CK LOCK ON ERROR 
LOOP 




0AC4 C400 0B6D 
0AC6 4C18 0AD4 
0AC8 4C04 0AD1 




LD 
BSC 

BSC 


L 
L 
L 


N740 
G744.C- 
H744, E 


CONDITION OF C C OF 
BRANCH ON ZERO 
BR IF NOT EVEN 




OACA 4400 0F69 
OACC 3105 




BSI 
DC 


L 


FOOO 
/3105 


CARRV ON 
ERR ID 




OACD 4400 0FC4 
OACF 7008 




BSI 
MOX 


I 


F005 
A740 


CK LOCK ON ERROR 
LOOP 




OADO 7003 




MDX 




G744 






0A01 4400 0F69 


H744 


BSI 


L 


FOOO 


OVFLO ON 




0AD3 3106 




DC 




/3106 


ERR ID 




0AD4 4400 0FC4 
0AD6 7001 


G744 


BSI 

MDX 


L 


F005 
A740 


CK LOCK ON ERROR 
LOOP 






• ••••»**•***•***,.,„„. ***»»*******«**«»»»»» 




0A07 2000 
0AD8 CCOO 0872 
OADA 8C00 0B6E 
OADC 2C00 0B6D 
OADE 4C18 0AE3 


A746 


LDS 

LOD 

AD 

STS 

BSC 


L 
L 
L 

L 




N746 

N742 

N740 

G746,£- 


SET C AND OF OFF 
LD AV/OOOO Of/0001 
A /FFFF /FFFF 
STORE COND OF C AND OF 
BRANCH ON ZERO 




OAEO 4400 0F69 
0AE2 3107 




BSI 
DC 


L 


FOOO 
/3107 


AO OOOOCFFFF A FAILED 
ERR ID 




0AE3 4400 0F98 


G746 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0AE5 70F1 




MDX 




A746 


LOOP 




0AE6 18D0 




RTE 




16 


INTERCHANGE A ANO Q 




0AE7 4C1* OAEC 




BSC 


L 


G748,£- 


BRANCH ON ZERO 




0AE9 4400 0F69 
OAEB 3108 




BSI 

DC 


L 


FOOO 
/3108 


AO 010KFFFF FAILED 
ERR ID 




OAEC 4400 0F98 


G748 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




OAEE 70 E8 




MDX 




A746 


LOOP 




OAEF C400 0B6D 




LO 


L 


N740 


LD COND OF C AND OF 




0AF1 F0B2 




EOR 




N704 


CHECK FOR CARRY 




0AF2 4C18 OBOO 




BSC 


L 


G74A,£- 


ZERO* C ANO OF OK 




0AF4 4C04 OAFD 




BSC 


L 


H74A t E 


CHECK FOR OVERFLOW XB15o 




0AF6 4400 0F69 




BSI 


L 


FOOO 


CARRY NOT ON 




OAFS 3109 




OC 




/3109 


ERR ID 




0AF9 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 




OAFB 700B 




MDX 




A746 


LOOP 




OAFC 7003 




MDX 




G74A 






OAFD 4400 0F69 


H74A 


BSI 


L 


FOOO 


OVFLO ON 




OAFF 310A 




DC 




/310A 


ERR ID 




OBOO 4400 0FC4 


G74A 


BSI 


L 


F005 


CK LOCK ON ERROR 




0B02 70D4 




MOX 




A746 


LOOP 






*•••*•***•••*•»*»»*•***»******•*•*•*****»**** 




CORE DATA OR 


*LA- 


OPER- 






'****»***************»•*****» 




AODR INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS 


C REMARKS IDCSEO* AT RIGHT 

>*****••**••*•****••**•*•*••• 




0B03 2000 


A74C 


LOS 







SET C ANO OF OFF 




0B04 C869 




LDD 




N742 


LO A*/FFFF 0*/FFFF 




0B05 8868 




AD 




N742 


A /FFFF /FFFF 




0B06 2866 




STS 




N740 


STORE C AND OF COND 




0B07 F066 




EOR 




N742 


ZERO WITH /FFFF 




0B08 4C18 OBOD 




BSC 


L 


G74Ct£- 


BRANCH ON ZERO 




OBOA 4400 0F69 




BSI 


L 


FOOO 


AD FFFFCFFFF ACC FAILEO 




OBOC 310B 




DC 




/310B 


ERR ID 




OBOD 4400 0F98 


G74C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




OBOF 70F3 




MDX 




A74C 


LOOP 




0B10 1800 




RTE 




16 


INTERCHANGE A AND 




0B11 F062 




EOR 




N74A 


ZERO WITH /FFFF 




0B12 4C18 0B17 




BSC 


L 


G74Et £- 


BRANCH ON ZERO 




OB 14 4400 0F69 




BSI 


L 


FOOO 


AO FFFFSFFFF FAILED 




0B16 310C 




DC 




/310C 


ERR ID 




OB I 7 4400 0F98 


G74E 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 


EC NO. 


415490 415490C 


419643 


420403 420403A 
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3A1 45580 

3A145590 

3A1 45600 

3A145610 

3A 145620 

3A 145630 

3A1 45640 

3A145650 

3A1 45660 

3A145670 

3A145680 

3A 14 5690 

3A145700 

3A145710 

3A145720 

3A145730 

3A145740 

3A145750 

3A145760 

3A145770 

3A145780 

3A145790 

3A 145800 

3A145810 

3A145820 

3A145830 

3A145B40 

3A145850 

3A145860 

3A145870 

3A145880 

3A 145890 

3A145900 

3A145910 

3A14S920 

3A 145930 

3A145940 

3A 145950 

3A145960 

3A145970 

3A1 45980 

3A 145990 

3A146000 

3A 146010 

3A146020 

3A 146030 

3A146040 

3A 146050 

3A146060 

3A 146070 

3A146080 

3A 146090 

3A146100 

3A146110 

3A146120 

3A 146130 

3A146140 

3A 146 150 

3A146160 

3A146170 

3A146180 

3A 146 190 

3A146200 

3A146210 

3A146220 

3A146230 

3A1 46240 

3A 146250 



PROG 10 
PAGE 



03A1-1 
34A 








IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



L 
I 
t 

I 
t 

C 

c 

i 

L 

i 

£ 



0B19 T0E9 




081* C052 




0B1B F05C 




0B1C 4C18 


OB 2 A 


0B1E 4C04 


0B27 


0B20 4400 


0F69 


0B22 310E 




OB23 4400 


0FC4 


0B25 7000 




0B26 7003 




OB27 4400 


OF 69 


0B29 310D 




0B2A 4400 


0FC4 


0B2C 70D6 




0B20 2000 




0B2E C8*7 




0B2F B83E 




0B30 2S3C 




0B31 F03C 




0B32 4C18 


0B37 


OB 3* 4*00 


0F69 


0B36 310F 




OP 37 4400 


0F98 


OB 39 70F3 




0B3A 1800 




0B3B F039 




083C 4C18 


0B*1 


0B3E 4*00 


OF 69 


08*0 3110 




0B41 4400 


0F98 


08*3 70E9 




OB** C028 




08*5 F032 




0B*6 *C18 


0B54 


08*8 4C04 


0B51 


0B*A 4400 


OF 69 


0B4C 3112 




0B*O 4400 


0FC4 


0B4F 7000 




0850 7003 




0B51 4400 


OF 69 


0B53 3111 




OB 5* 4*00 


OFC* 


0B56 7006 





MDX A7*C LOOP 

LD N7*0 CONDITION OF C AND OF 

EOR N7*8 CHECK FOR OVERFLOW 

BSC L J7*0,C- BRANCH ON ZERO 

BSC L K7*0,E CHECK FOR CARRY 

BSI L FOOO CARRY NOT ON 

DC /310E ERR ID 

BSI L F005 CK LOCK ON ERROR 

MDX A7*C LOOP 
MOX J7*0 

BSI L FOOO OVFLO ON 

DC /310D ERR ID 

BSI L F005 CK LOCK ON ERROR 

MOX A7*C LOOP 
*»»»»»*»»*»*»»*»»»»»*«*••»»»*****»♦*»»»»**»»* 



K7*0 



J 7*0 



B7*2 



J7*2 



J 7** 



K7*6 



J746 



LDS 

LDD 

AD 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LD 

EOR 

BSC 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



SET C AND OF OFF 
LD At/FFFF Q#/7FFF 
A /FFFF /FFFF 
STORE CONDITION OF C t 



OF 





N7*C 

N7*2 

N7*0 

N7*2 

J7*2,E- 

FOOO 

/310F 

FOOE 

B7*2 

16 

N7*B 

J744.6- 

FOOO 

/3110 

FOOE 

B7*2 

N740 

N748 

J7*6,C- 

K7*6 t E 

FOOO 

/3112 

FOOS 

8742 

J7*6 

FOOO 

/3111 

F005 

B7*2 

CORE DATA OR »LA- OPER- 

ADOR INSTRUCTION *BEL ATION FT OPERANDS C REMARKS IDCSEOi AT RIGHT 

a********************************************************************** 



BRANCH ON ZERO 

AD FFFFCFFFF A FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

INTERCHANGE A AND Q 

BRANCH ON ZERO 

AO /7FFFCFFFF /FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

LD C AND OR CONDITION 

ZERO IF CARRY MAS ON 

BRANCH ON ZERO 

CHECK FOR CARRY 

CARRY NOT ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 

OVFLO ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 



0B57 
0858 
0859 
0B5A 
0B5C 
0B5E 
085F 
0861 
0B62 
0863 
0B6* 
0B66 
0B68 
0669 
0B6B 
0B6C 
0860 
0B6E 



C81A 

88 1A 

F019 

4C18 0B5F 

4400 OF 69 

3113 

4*00 0F98 

70F5 

1800 

F01* 

*C18 0869 

4*00 OF 69 

311* 

**00 

70EB 

700C 

0000 

0000 



B7*7 



J7*8 



OFC* 



J7*A 



N7*0 



LDD 

AD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

BSS 



N7*6 LD Af/OOOO Qf/0001 

N7*7 A /0001 /0001 

N747 ZERO ACC IF CORRECT OP 

J7*8,£- BRANCH ON ZERO 

FOOO AD-ODD A REG FAILED 

/3113 ERR ID 

FOOE CK LOCK ON ERROR 

B7*7 LOOP 

16 NOW Af/0002 Of/0000 

N7*8 ZERO ACC IF CORRECT OP 

J7*A,£- BRANCH ON ZERO 

FOOO AD-ODD REG FAILEO 

/311* ERR ID 

F005 CK LOCK ON ERROR 

B7*7 LOOP 

A7B0 EXIT TO NEXT ROUTINE 

/OOOO 
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3A146260 

3*1*6270 

3A146280 

3A 146290 

3A146300 

3A 146310 

3A146320 

3A 146330 

3A1 46340 

3A 146350 

3*146360 

3A 146370 

3A146380 

3A 146390 

3*1*6*00 

3A146410 

3*1*6*20 

3A 146430 

3A 146440 

3A 146450 

3*1*6*60 

3*1*6470 

3A146480 

3A 146490 

3A146500 

3A146510 

3A146520 

3A 146530 

3*1*65*0 

3A 1*6550 

3A1 46560 

3A 146570 

3A146580 

3A 146590 

3A146600 

3 A 1*6610 

3A146620 

3A146630 

3*1466*0 

3A146650 

3A1 46660 

3A 146670 

3 A 146680 

3A 146690 

3*146700 

3*1*6710 

3A146720 

3*1*6730 

3*1*67*0 

3A146750 

3A146760 

3A 146770 

3A1 46780 

3A146790 

3A146800 

3*1*6810 

3A146820 

3*1*6830 

3*1*68*0 

3A1*6850 

3 Al 46860 

3*1*6870 

3*1*6880 

3*1*6890 

3*1*6900 

3*1*6910 

3A146920 

3A 146930 



c i 







o 
c 

c 



c 



DATE 
EC NO. 



02JAN66 
* 15*90 



01MAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AUG68 
*20*03A 



PROG ID 
PAGE 
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35 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE 35* 





0B6E FFFF 




N7*2 


DC 




/FFFF 




3*1*69*0 






0B6F FFFF 






DC 




/FFFF 




3*1*6950 






0B70 0000 




N7*4 


OC 




/OOOO 




3*1*6960 






0B71 0000 






DC 




/OOOO 




3*1*6970 






0B72 0000 




N7*6 


DC 




/OOOO 




3*1*6980 






0B73 0001 




N7*7 


OC 




/0001 




3*1*6990 






0B7* FFFE 




N7*A 


DC 




/FFFE 




3*1*7000 






0B75 7FFE 




N7*B 


DC 




/7FFE 




3*1*7010 






0B76 FFFF 




N7*C 


DC 




/FFFF 




3*1*7020 






0B77 7FFF 






DC 




/7FFF 




3*1*7030 






0B7B 0002 




N7*8 

* 

• 
• 


OC 




/0002 


TEST SUB DOUBLE 


3*1*70*0 
3*1*7050 
3*1*7060 
3*1*7070 










»»»»»»*»»»»»»»»»»*»»»*»»•»»»»**»»•*»»*»***••* 


3*1*7080 






0B79 2000 




A780 


LDS 







SET C *N0 OF OFF 


3*1*7090 






0B7A C867 






LDD 




N782 


LD Af/OOOO Of/0000 


3A1*7100 






0B7B 9868 






SO 




N78* 


S /OOOO /0001 


3*1*7110 






0B7C 286* 






STS 




N780 


STORE C AND OF CONDITION 


3*1*7120 






0B7D F068 






EOR 




N7B6 


ZERO WITH /FFFF 


3*1*7130 






0B7E *C18 


0B83 




BSC 


L 


G780,l- 


BRANCH ON ZERO 


3*1*71*0 






OBBO **00 


OF 69 




BSI 


L 


FOOO 


SO 0000-0000 ACC FAILED 


3*1*7150 






0B82 3115 






OC 




/3115 


ERR !C 


3*1*7160 






0683 **00 


0F98 


G780 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*147170 






0B85 70F3 






MDX 




A780 


LOOP 


3*1*7180 






0B86 1800 






RTE 




16 


NOW At/FFFF Qt/OOOO 


3*1*7190 






0887 FOSE 






EOR 




N7B6 


ZERO WITH /FFFF 


3*1*7200 






0B88 *C18 


0B80 




BSC 


L 


6782, t- 


BR ON ZERO 


3*1*7210 






08BA **00 


0F69 




BSI 


L 


FOOO 


SD 0000-O0O1 FAILED 


3*1*7220 






0B8C 3116 






DC 




/3116 


ERR ID 


3*1*7230 






0B8D **00 


0F98 


G782 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*1*7240 






OBBF 70E9 






MOX 




A7B0 


LOOP 


3*1*7250 






0B9O C050 






LD 




N780 


LD C AND OF CONDITION 


3*147260 






0B91 F056 






EOR 




N788 


ZERO IF CARRY WAS ON 


3*1*7270 






0B92 *C18 


OBAO 




BSC 


L 


G78*,£- 


BRANCH ON ZERO 


3*1*7280 






089* *C0* 


0B9D 




BSC 


L 


H78*,E 


CHECK FOR CARRY 


3*147290 






0B96 *400 


0F69 




BSI 


L 


FOOO 


CARRY NOT ON 


3*1*7 300 






0B9B 3117 






DC 




/3117 


ERR ID 


3*147310 






0B99 **00 


OFC* 




BSI 


L 


FOOS 


CK LOCK ON ERROR 


3*1*7320 






0B9B 70D0 






MDX 




A780 


LOOP 


3*147330 






0B9C 0" 7003 






MDX 




G784 




3A 147 340 






0B9D **00 


OF 69 


H78* 


BSI 


L 


FOOO 


OVFLO ON 


3*1*7350 






089F 3118 






DC 




/3118 


ERR 10 


3*1*7360 






OBAO **00 


OFC* 


G78* 


BSI 


L 


F005 


CK LOCiC ON ERROR 


3*1*7370 






0BA2 70D6 






MDX 




A 780 


LOOP 


3*1*7380 










»*»»*»»»»*»*******»*»»»»»»»»»»»»*»****»»**»»» 


3*1*7390 






»»»»»*»*»»*»*»»»»»»»*»»**»*»•»»»«*»»*»»»***»»»*»»»»»*»**•»»»»»»»*••*»*» 


3*1*7400 






CORE DATA OR 


»LA- 


OPER- 








3*147*10 






AODR INSTRUCTION 


*BEL 


ATION 


FT 


OPERANOS t REMARKS IDtSEOf AT RIGHT 


3*1*7*20 






*****»»*««**««•«»»»»***»»*«***»***»»*»*»*******»»**♦****»******»*»»*»»» 


3*1*7*30 






0BA3 2000 




*786 


LDS 







SET C AND OF OFF 


3*147440 






0BA4 C83D 






LDD 




N782 


LD *f/0000 Qf/OOOO 


3*1*7*50 






0BA5 98*0 






SO 




N786 


/FFFF /FFFF 


3*1*7460 






08*6 *C18 


OBAS 




BSC 


L 


G786,t- 


BRANCH ON ZERO 


3*1*7*70 






08A8 **00 


OF 69 




BSI 


L 


FOOO 


SD OOOO-FFFF A FAILED 


3A1*7*80 






OBAA 3119 






DC 




/3119 


ERR ID 


3*1*7*90 






OBAB **00 


0F9 8 


G786 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3*1*7500 






08*0 70F5 






MDX 




A786 


LOOP 


3*1*7510 






CBAE 1800 






RTE 




16 


NOW Ai/0001 Of/0000 


3*1*7520 






OBAF F035 






eoR 




N785 


ZERO allH /0001 


3*1*7530 






OBBO *C18 


0BB5 




3SC 


L 


&788tt- 


BRANCH ON £ERO 


3*1*75*0 






0B82 **00 


0F69 




BSI 


L 


FOOO 


SO OOOO-FFFF Q FAILEO 


3A1*7550 






08BV 311* 






DC 




/311A 


ERR ID 


3*1*7560 






0BB5 **00 


OFC* 


6788 


BSI 


L 


F005 


CK LOCK ON ERROR 


3*1*7570 






0BB7 70E3 






MDX 




A786 


LOOP 


3*1*7580 










»«»«.»*****»**-»«••»*»»»**»»»•»»»»*»<*«»»«♦»' 


3*1*7590 






0888 C831 




A78* 


LDD 




N78* 


LD Af/OOOO Of/COOO 


3*1*7600 






0B89 9S2C 






SD 




N7B6 


S /FFFF /FFFF 


3*1*7610 




DATE 


02JAN66 


D1MAY66 


15NDV66 


15FEB68 


26AUG68 


PROG 10 


03*1-1 


EC NO. 


*15*90 


tl5*90C 


U96*3 


*2O*03 


* 20403* 


PAGE 
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OBBA 
OBBC 
OBBE 
OBBF 
0BC1 
0BC2 
0BC3 
0BC4 
0BC6 
0BC8 
0BC9 
OBCB 

06CC 
OBCD 
OBCE 
OBDO 
CB02 
0BD3 
0BD5 
0B06 
0BD7 
0BD8 
OBDA 
OBDC 
OBDO 
OBDF 
OBEO 
0BE1 
0BE2 
0BE2 
0BE3 
0BE4 



4C18 OBBF 
4400 OF 69 
311B 

4400 0F9B 
70F6 
1800 
F025 

4C1B 0BC9 
4400 0F69 
31 1C 

4400 0FC4 
70 EC 

C815 
9819 

4C18 0B03 
4400 0F69 
31 ID 

4400 0F9B 
70 F6 
1800 
FOOO 

4C18 OBDO 
4400 OF 69 
311E 

4400 0FC4 
70EC 
700B 
0000 
0000 
0000 
0000 
0000 



678* 



678C 



BSC 

BSI 

DC 

BSI 

max 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MOX 



678 A« t- BRANCH ON ZERO 

FOOO SO OOOO-FFFF A FAILED 

/311B ERR ID 

FOOE CK LOCK ON ERROR 

A78A LOOP 

16 NOM At/COOl 08/0000 

N78D ZERO WITH /C001 

G78C,t- BRANCH ON ZERO 

FOOO SD COOO-FFFF FAILED 

/311C ERR ID 

F005 CK LOCK ON ERROR 

A78A LOOP 



»»»«»»»»»»»»»***♦*»*»♦*♦»*****»*****»»*»»•»*« 



A78E 



G78E 



0BE5 0001 
0BE6 FFFF 













0BE7 
0BE8 
0BE9 
OBEA 
OBEB 



FFFF 
0002 
C001 
0000 
COOO 



H7B0 



N780 

N782 

N784 
N785 
N786 
N787 
N788 
N78D 
N78A 

• 

* 



LDD 

SD 

BSC 

BSI 

DC 

BSI 

HDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MOX 

HDX 

DC 

BSS 

DC 

DC 

DC 

DC 

OC 

DC 

OC 

DC 

DC 

DC 



N7B2 

N787 

GTBE.C- 

FOOO 

/311D 

FOOE 

A78E 

16 

N785 

H780tl- 

FOOO 

/311E 

F005 

A78E 

A7C0 

/OOOO 

/OOOO 
/OOOO 
/OOOO 
/0001 
/FFFF 
/FFFF 
/0002 
/C001 
/OOOO 
/COOO 



LD At/0000 00/0000 

S /FFFF /FFFF 

BRANCH ON ZERO 

SO-ODO A FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

NOW At/0001 08/0000 

ZERO WI.H /0001 

BRANCH ON ZERO 

SO-ODD FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 

STORAGE 



TEST OF MULTIPLY OPERATION 



CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS ID&SEQf AT RIGHT 



OBEC 
OBED 
OBEE 
OBEF 
0BF1 
0BF3 
0BF4 
0BF6 
0BF7 
0BF8 
0BF9 
OBFB 
OBFD 
OBFE 

ocoo 
ocoi 

0C02 
0C03 
OCOS 



C04F 

A04F 

F04F 

4C18 0BF4 

4400 OF 69 

311F 

4400 0F98 

70F5 

1800 

F046 

4C 18 OBFE 

4400 OF 69 

3120 

4400 0FC4 

70EB 

C03E 
A03D 

4C18 0C08 
4400 OF 69 



A7C0 



G7C0 



G7C2 



LO 

M 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 



N7C0 LD /5555 

N7C1 M /2AAA 

N7C2 ZERO WITH /0E38 

G7C0.E- BRANCH ON ZERO 

FOOO M /5555X/2AAA ACC FAILED 

/311F ERR ID 

FOOE CK LOCK ON ERROR 

A7C0 LOOP 

16 NOW A8/9C72 08/0000 

N7C3 ZERO WITH /9C72 

G7C2,t- BRANCH ON ZERO 

FOOO MULT 5555X2AAA FAILED 

/3120 ERR ID 

F005 CK LOCK ON ERROR 

A7C0 LOOP 



A7C4 LD N7C4 LD /FFFF 

M N7C4 M /FFFF 

BSC L G7C4.C- BRANCH ON ZERO 

BSI L FOOO M /FFFFX/FFFF ACC FAILED 



PART NO. 2191204 
PACE 3* 



3A147620 
3A147630 
3A1 47640 
3A 147650 
3A147660 
3A147670 
3A147680 
3A 147690 
3A147700 
3A147710 
3A147720 
3A147730 
3A147740 
3A147750 
3A147760 
3A147770 
3*1*7780 
3A147790 
3A147800 
3A147810 
3*1*7820 
3A147830 
3A147840 
3A147850 
3A147860 
3A147B70 
3A147880 
3A147890 
3A147900 
3A147910 
3A147920 
3A147930 
3A147940 
3A147950 
3A1 47960 
3A147970 
3A147980 
3A147990 
3A148000 
3A148010 
3A148020 
3A 148030 
3A148040 
3A1480S0 
3A148060 
3A148070 
3A148080 
3A 148090 
3A148100 
3A 1481 10 
3A14B120 
3A148130 
3A14B140 
3A148150 
3A148160 
3A148170 
3A14B180 
3A148190 
3A148200 
3A 1482 10 
3A148220 
3A 1482 30 
3A148240 
3A148250 
3A148260 
3A 148270 
3A148280 
3A148290 



c 


• 





• 


c 


• 


c 


• 


c 


• 


c 


• 





• 





t 





• 





• 


e 


. • 





• 




i 





t 





• 





, • 


t 


• 


• 


• 


• 


• 


• 


• 


t 


t 




f 


• 


• 




■ 





• 





• 





• 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



0C07 





3121 






DC 




/3121 


0C08 





4400 


0F9B 


G7C4 


BSI 


L 


FOOE 


OCOA 





70F6 






MDX 




A7C4 


OCOB 





18D0 






RTE 




16 


OCOC 





F034 






EOR 




N7C5 


OCOD 





4C18 


0C12 




BSC 


L 


G7C6.C- 


OCOF 





4400 


OF 69 




BSI 


L 


FOOO 


0C11 





3122 






DC 




/2122 


0C12 





4400 


0FC4 


G7C6 


BSI 


L 


F005 


0C14 





70 EC 






MDX 




A7C4 


' 








*«*»**«»»»»*•»»«»»»**« 


0C15 





C02C 




A7C8 


LD 




N7C6 


0C16 





A029 






M 




N7C4 


0C17 





4C1B 


0C1C 




BSC 


L 


G7C8tt- 


0C19 





4400 


OF 69 




BSI 


L 


FOOO 


0C1B 





3123 






DC 




/3123 


0C1C 





4400 


0F98 


G7CB 


BSI 


L 


FOOE 


0C1E 





70F6 






MDX 




A7C8 


0C1F 





18D0 






RTE 




16 


0C20 





4C18 


0C25 




BSC 


L 


G7CA,£- 


0C22 





4400 


OF 69 




BSI 


L 


FOOO 


0C24 





3124 






DC 




/3124 


OC25 





4400 


0FC4 


G7CA 


BSI 


L 


F005 


0C27 





70ED 






MDX 




A7C8 










*»»»»**»»*»»*****»»»* 


0C28 





C017 




A7CC 


LD 




N7C4 


0C29 





A018 






M 




N7C6 


0C2A 





4C18 


0C2F 




BSC 


L 


G7CC.E- 


0C2C 





4400 


0F69 




BSI 


L 


FOOO 


0C2E 





3125 






DC 




/3125 


0C2F 





4400 


0F98 


G7CC 


BSI 


L 


FOOE 


0C31 





70F6 






MDX 




A7CC 


0C32 





1800 






RTE 




16 


OC33 





4C1B 


0C38 




BSC 


L 


G7CE.E- 


0C35 





4400 


OF 69 




BSI 


L 


FOOO 


0C37 





3126 






DC 




/3126 


0C38 





4400 


0FC4 


G7CE 


BSI 


L 


F005 


0C3A 





70 ED 






MOX 




A7CC 


0C3B 





7007 






MDX 




A800 


0C3C 





5555 




N7C0 


OC 




/5555 


0C3D 





2AAA 




N7C1 


DC 




/2AAA 


0C3E 





0E38 




N7C2 


DC 




/0E38 


0C3F 





9C72 




N7C3 


DC 




/9C72 


OC40 





FFFF 




N7C4 


DC 




/FFFF 


0C41 





0001 




N7C5 


DC 




/0001 


0C42 





OOOO 




N7C6 


DC 




/OOOO 



ERR 10 

CK LOCK ON ERROR 

LOOP 

NOM At/0001 Oi/0000 

ZERO WITH /0001 

BRANCH ON ZERO 

M /FFFFX/FFFF REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

LD /OOOO 

M /FFFF 

BRANCH ON ZERO 

M /FFFFX/OOOO ACC FAILEO 

ERR 10 

CK LOCK ON ERROR 

LOOP 

NOW At/0000 00/0000 

BRANCH ON ZERO 

M /FFFFX/OOOO REG FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

LD /FFFF 

M /OOOO 

BRANCH ON ZERO 

M /OOOOX/FFFF ACC FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW At/0000 Ot/0000 

BRANCH ON ZERO 

M /OOOOX/FFFF REG FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



* TEST OF DIVIDE OPERATION 

CORE DATA OR *LA- OPER- 

ADOR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS IDESEOt AT RIGHT 

»»»»«*»»»»»»»*»»»•»•*♦»*»»»»*«»«*•»*»*»«»•»»»»**»»**********»****»»**•* 



0C43 
0C44 
0C46 
0C4B 
0C4A 
0C4C 
0C4E 
0C50 
0C51 
0C53 
0C54 
OC55 
0C57 
0C59 



2000 

CCOO 0CE2 
ACOO 0CF2 
2C00 0CE1 
F400 0CF2 
4C18 0C51 
4400 OF 69 
3127 

4400 0F98 
70 EF 
18D0 

F400 0CF1 
4C18 0C5C 
4400 OF 69 



A800 



GBOO 



LDS 

LDD 

D 

STS 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 



SET C AND OF OFF 

NB02 ID At/4000 08/7FFF 

N812 D /8000 

N800 STORE C AND OF CONDITION 

N812 ZERO WITH /8000 

G800.E- BR ON ZERO 

FOOO OVD-A-REG INCORRECT 

/3127 ERR ID 

FOOE CK LOCK ON ERROR 

ABOO LOOP 

16 NOW At/7FFF Qt/OOOO 

NBll ZERO WITH /7FFF 

G802,£- BRANCH ON ZERO 

FOOO DVD-W REG INCORRECT 



PART NO. 2191204 
PAGE 36A 



3A 148 300 

3A14B310 

3A148320 

3A148330 

3A1 48340 

3A 148350 

3A148360 

3A148370 

3A148380 

3A148390 

3A148400 

3A148410 

3A148420 

3A 148430 

3A14B440 

3A14B450 

3 A 148460 

3A148470 

3A148480 

3A148490 

3 A 148 500 

3A148510 

3A148520 

3A148530 

3A148540 

3A148550 

3A 148560 

3A148570 

3A148580 

3A148590 

3A148600 

3A14B610 

3A148620 

3A148630 

3A148640 

3A148650 

3A148660 

3A148670 

3A1 48680 

3A 148690 

3A148700 

3A148710 

3A148720 

3A 148730 

3A148740 

3A148750 

3A148760 

3A148770 

3A148780 

3A148790 

3A148800 

3A148810 

3A148820 

3A148830 

3A148840 

3A148850 

3A148660 

3A148B70 

3A148880 

3A148890 

3A148900 

3A148910 

3A148920 

3A 14 89 30 

3A1 48940 

3A 148950 

3A148960 

3A148970 



OATE 
EC NO. 



02JAN66 
415490 



01HAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PA6E 



03A1-1 
36 






DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG66 
420403A 



PROG 10 
PAGE 



03A1-1 

36A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



OATE 
EC NO. 



0C5B 
0C5C 
OCSE 
0C5F 
0C60 
0C62 
0C64 
0C66 
0C67 
0C69 
0C6A 
0C6B 
0C60 
0C6E 
0C70 

0CT1 
OC72 
0C74 
0C75 
0C76 
0C7B 
0C7A 
0C7B 
0C7D 
0C7E 
0C7F 
OCBO 
0CB2 
0C84 
0C85 
0C87 
0CB8 
0C89 
0C8B 
0C80 
0C8F 
0C90 
0C92 
0C93 
0C94 
0C96 
0C97 
0C99 



3128 

4400 
70E4 
C0E2 
4C18 
4C04 
4400 
3129 
4400 
7009 
7006 
4400 
312A 
4400 
70D2 



C872 
ACOO 
286C 
F07D 
4C18 
4400 
3128 
4400 
70F3 
1800 
F074 
4C18 
4400 
31 2C 
4400 
70 E9 
C05B 
4C18 
4C04 
4400 
3120 
4400 
70DE 
7006 
4400 
312E 
4400 
7007 



0F98 



0C6E 
0C6B 
0F69 

0FC4 



OF 69 
0FC4 

0CF3 



0C7B 
0F69 

0F98 



0C85 
OF 69 

0F98 



0C97 
0C94 
0F69 

0FC4 



OF 69 
0FC4 



OC /3128 EM 10 

6802 BSI L FOOE CK LOCK ON ERROR 

MDX ABOO LOOP 

LD N7C6 LO /OOOO 

BSC L G804,t- BRANCH ON ZERO 

BSC L H804.E BR ON NOT EVEN 

BSI L FOOO CARRY ON 

DC /3129 ERR 10 

BSI L F005 CK LOCK ON ERROR 

MOX A800 LOOP 

MOX A806 EXIT TO NEXT ROUTINE 

H804 BSI L FOOO OVFLO ON 

OC /312A ERR ID 

GC04 BSI L F005 CK LOCK ON ERROR 

MOX ABOO LOOP 



N804 . LD Af/lCTl Q8/8BE3 

N813 /555S 

N800 STORE C AND OF CONDITION 

N813 ZERO WITH /S5555 

G806,£- BRANCH ON ZERO 

FOOO OVO-A REG INCORRECT 

/312B ERR ID 

FOOE CK LOCK ON ERROR 

A 80 6 LOOP 

16 NOM A8/BBE3 08/0000 

NB16 ZERO KITH /20AA 

G808,(- BRANCH ON ZERO 

FOOO DVO-Q REG INCORRECT 

/312C ERR 10 

FOOE CK LOCK ON ERROR 

A806 LOOP 

NSOO LD C AND OF CONDITION 

G80A,t- BRANCH ON ZERO 

H80A,E BR IF NOT EVEN 

FOOO CARRY ON 

/312D ERR ID 

FOOS CK LOCK ON ERROR 

A806 LOOP 

A80C EXIT TO NEXT ROUTINE 

FOOO OVFLO ON 

/312E ERR ID 

F005 CK LOCK ON ERROR 

A806 LOOP 



A806 LOO 

L 

STS 

EOR 

BSC L 

BSI L 

OC 
G806 BSI L 

MDX 

RTE 

EOR 

BSC L 

BSI L 

OC 
G80B BSI L 

MOX 

LD 

BSC L 

BSC L 

BSI L 

OC 

BSI L 

MDX 

MDX 
H80A BSI L 

OC 
G80A BSI L 

MDX 



COKE DATA OR *LA- OPER- 

AODR INSTRUCTION *6EL. ATION FT OPERANDS C REMARKS IOtSEQ* AT RIGHT 

•••••••••*»*•*••*»•**•*•«••••■*»•«**»»*•»*•*••*•****»••**••••**•*••«*•• 



0C9A 

0C9B 

0C9C 

0C9D 

0C9F 

0CA1. 

0CA2 

0CA4 

0CA5 

0CA6 

0CA7 

0CA9 
OCAA 
OCAB 
OCAC 
OCAE 
OCBO 
0CB1 



2000 

C84A 

AB51 

4C01 0CA2 

4400 OF 69 

312F 

4400 0FC4 

70F5 

1800 

F040 

4C20 



2000 
CB3D 
A83B 
4C01 
4400 
3130 
4400 



0C9F 



A80C LDS SET C AND OF OFF 

LOD N806 SET AH/0000 Q870001 

D N80E /OOOO 

BSC L G80C t BRANCH ON OVERFLOW 

H80C BSI L FOOO OVD BY 0- OFL OFF 

DC /312F ERR 10 

G80C BSI L FOOS CK LOCK ON ERROR 

MDX A80C LOOP 

RTE 16 SNAP A ANO 

EOR N807 ACC S/B /OOOO 

BSC L II80C.Z BCH UNLESS ZERO 

a******************************************** 



0CB1 
OF 69 

0FC4 



A80E 



G80E 



LOS 

LOD 



BSC 

BSI 

OC 

BSI 





N808 

N807 

&80E.C 

FOOO 

/3130 

F005 



SET C ANO OF OFF 

LD Af/4000 08/0000 

/0001 

BRANCH ON OVERFLOW 

OVD-BY 1-OVRFLH OFF 

ERR 10 

CK LOCK ON ERROR 



PART N0„ 2191204 
PACE 37 



3 AI 489*0 
3A148990 
3A1 49000 
3A149010 
3A149020 
3A 149030 
3A1 49040 
3A 149050 
3A1 49060 
3A 149070 
3A149080 
3A149090 
3A149100 
3A149110 
3A149120 
3A149130 
3A149140 
3A 149 ISO 
3*149160 
3A 149 170 
3A149180 
3A 149 190 
3A149200 
3A 1492 10 
3A149220 
3A149230 
3A149240 
3A 149250 
3A149260 
3A149270 
3A1492S0 
3A 149290 
3A149300 
3A149310 
3A149320 
3A 149330 
3A149340 
3A 149350 
3A149360 
3A 149370 
3A1493S0 
3A149390 
3A149400 
3A 149410 
3A149420 
3A 149430 
3A149440 
3 A 149450 
3A149460 
3A 149470 
3A1494B0 
3A 149490 
3A149500 
3A149510 
3A149520 
3A 149530 
3A149540 
3A 149550 
3A149560 
3A 149570 
3 A 149 580 
3 A 149590 
3A149600 
3 A 149610 
3A149620 
3A 149630 
3A149640 
3 A 149*50 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



c 
c 



o 



o 

o 

G 

© 

o 



o 
o 





9 

9 
• 

• 

9 
9 

9 
9 

9 
9 
9 



IBM MAINTENANCE 0U&NOSTIC PR06SAN FOR THE 1130 SYSTEM 

CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 37A 



03A1-1 
37 





©CBS e 


7©F5 






MDX 




A80E 


LOOP 




3A149660 












•»«$*<* •*«**••***«• *•*•»•*•••*••**««*•*•«*«••• 


3A 149670 






0CB4 § 


2000 




B800 


LDS 







SET C AND OF 


OFF 


3A1496S0 






OCSS 


CS34 






LDD 




N80A 


LD A* /AOOO 


08/0000 


3A 149690 






0CB6 


A831 






D 




N808 


/4000 




3A149700 


* 




0CB7 © 


4C01 


OCBC 




8SC 


L 


JSOO.O 


BRANCH ON OVERFLOW 


3A149710 






0CB9 


4400 


OF 69 




BSI 


L 


FOOO 


DVO/4000-OVRFLM OFF 


3A149720 






0CB8 


3131 






DC 




/3131 


ERR ID 


- 


3A149730 






OCBC 


4400 


0FC4 


J 800 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3A149740 






OCRS 


70F5 






MOX 




B800 


LOOP 




3A1497S0 












?****x*»**ax*****«»**s»*»»*»»***e«** *•*•****« 


3*1497*0 






OCBF 


2000 




8802 


LOS 







SET C ANO OF 


OFF 


3A149770 






OCCO 


C82B 






LOO 




N80C 


LD A8/C000 


08/0000 


3A149780 






0CC1 


A836 











N812 


D /8000 




3A149790 






0CC2 


4C01 


0CC7 




BSC 


L 


J802.O 


BR ON OF 




3A149800 






0CC4 


4400 


0F*9 




BSI 


L 


FOOO 


OVD/BOOO-OVRFLM OFF 


3A 149810 






0CC6 


3132 






OC 




/3132 


ERR ID 




38149*20 






0CC7 


440® 


0FC4 


JB02 


BSI 


I 


FOOS 


CHECK LOOP SNITCH 


3A 149830 






0CC9 


70F5 






MOX 




B802 


LOOP 




3A149S40 












*•»•*•»»•»»*»•»*»»»•»»*•*»»»*»**••••»•»•»•••* 


3A149850 






OCCA 


2000 




BB04 


LDS 







SET C ANO OF 


OFF 


3A149860 






OCCB 


C822 






LOO 




N80E 


LD A* /OOOO 


08/FFFF 


3A149870 






OCCC 


ASIA 











N807 


/0001 




3A149880 






OCCO 


4C01 


0C02 




BSC 


L 


J804.0 


BR ON OF 




3A149890 






OCCF 


4400 


OF 69 




BSI 


L 


FOOO 


DV 0/000 1-OVRFLN OFF 


3A149900 






0CD1 


3133 






DC 




/3133 


ERR 10 




3A149910 






0C02 


4400 


0FC4 


J804 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3*149920 






0C04 


70 F5 






NOK 




B804 


LOOP 




3A 149930 












**•***>•*•*••**••*«••••••••**•••*•**•***•*•••• 


3A149940 






0CD5 


2000 




B806 


LDS 







SET C AND OF 


OFF 


3A 149950 






0CD6 


C819 






LDD 




N810 


LD AS/FFFF 


Q8/7FFF 


3A149960 






0CD7 


A80F 











N807 


/0001 




3A 149970 






0CD8 


4C01 


OCOD 




BSC 


L 


J 806-0 


BR ON OF 




3A149980 






OCDA 


4400 


OF 69 




BSI 


L 


FOOO 


0V0/0001-OVRFLH OFF 


3A 149990 






OCOC 


3134 






DC 




/3134 


ERR ID 




3*150000 






OCOD 


4400 


0FC4 


J806 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3A150010 






OCOF 


70F5 






MDX 




8806 


LOOP 




3*150020 






OCEO 


7023 






MDX 




B807 


EXIT TO NEXT 


ROUTINE 


3A15O03O 






0CE1 


OOOO 




N800 


OC 




/OOOO 


STORAGE 




3A1 50040 






0CE2 


OOOO 






BSS 


E 








3A 150050 






0CE2 


4000 




N802 


OC 




/4000 






3*1500*0 






0CE3 


7FFF 






DC 




/7FFF 






3*150070 






0CE4 


1C71 




N804 


DC 




/1C71 






3*1500*0 






0CE5 


BBE3 






DC 




/BBE3 






3*150090 






0CE6 


OOOO 




N806 


DC 




/OOOO 






3*150100 






0CE7 


0001 




N807 


DC 




/0001 






3*150110 






0CE8 


4000 




NB08 


DC 




/4000 






3*150120 






0CE9 


OOOO 






DC 




/OOOO 






3A150130 






OCEA 


AOOO 




N80A 


OC 




/AOOO 






3*150140 






OCEB 


OOOO 






OC 




/OOOO 






3*150150 






OCEC 


COOO 




N80C 


OC 




/COM 






3A150140 






OCEO 


OOOO 






OC 




/OOOO 






3*150170 






OCEE 


OOOO 




N80E 


OC 




/OOOO 






3*1501*0 






OCEF 


FFFF 




N80F 


DC 




/FFFF 






3A150190 






OCFO 


FFFF 




NB10 


DC 




/FFFF 






3*150200 






0CF1 


7FFF 




NS11 


DC 




/7FFF 






3*150210 






0CF2 


8000 




N812 


OC 




/•OOO 






3*150220 






0CF3 


5555 




N813 


DC 




/S555 






3*150230 






0CF4 


2DAA 




N816 


OC 




/20AA 






3*150240 






0CF5 


COOO 




N817 


OC 




/COOO 






3*150250 






0CF6 


6100 




N818 


OC 




/6100 






3*1502*0 






0CF7 


OOOO 






OC 




/OOOO 






3*150270 






0CF8 


8000 




N819 


OC 




/•OOO 






3*1502*0 






0CF9 


OOOO 






OC 




/OOOO 






3*150290 






OCFA 


0002 




N820 


OC 




/0002 






3A150300 






OCFB 


OOOO 




N821 


DC 











3A 150310 






OCFC 


2001 






OC 




/2001 






3*150320 






OCFD 


4000 






cc 




/4000 






3*150330 




DATE 


02JAN66 01MAY66 
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419643 


420403 


420403A 
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OCFE 
ODOO 
0000 
0001 
0002 
0003 



COOO 
0000 
FFFF 
FFFF 
0000 
0000 



N823 



N824 



oc 


/COOO 




BSS 


E 




DC 


/FFFF 




DC 


/FFFF 




OC 





STORAGE 


DC 





STORAGE 



COKE DATA OR «LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS IDtSEQ* AT RIGHT 

BB07 



J80B 



0004 





2000 




0005 





C8F0 




0006 





A8EE 




0007 





4C01 


OOOC 


0009 





4*00 


0F69 


ODOB 





316A 




OCOC 





4400 


0FC4 


OOOE 





70F5 




OOOF 





2000 




ODIO 





C8E7 




0011 





A800 




0D12 





4C01 


0D17 


0014 





4400 


0F69 


0D16 





3168 




0017 





4400 


0FC4 


0019 





70F5 




001A 





2000 




001B 





C8E4 




0D1C 





A800 




001D 





4C01 


0020 


001F 





7003 




0D20 





4400 


0F69 


OD22 





316C 




0023 





4400 


0FC4 


OD25 





70F4 





LDS 







SET C AND OF OFF 


LDD 




N818 


LO A8/6100 08/0000 


D 




N817 


D /COOO 


BSC 


L 


J808.0 


BR ON OF 


BSI 


L 


FOOO 


OVERFLOW OFF 


DC 




/316A 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




8807 


LOOP 

k******* ********* ****** 


LOS 







SET C AND OF OFF 


LDD 




N819 


LD Ai/8000 08/0000 


D 




N80F 


/FFFF 


BSC 


L 


J809.0 


BR ON OF 


BSI 


L 


FOOO 


OVERFLOW OFF 


OC 




/316B 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 

• *#* 


♦ ♦* 


B80S 


LOOP 


LDS 







SET C AND OF OFF 


LDD 




N823 


LD A8/FFFF Q8/FFFF 


D 




N820 


D /0002 


BSC 


L 


JBlStO 


BR ON OF 
OVERFLOW OFF 


MDX 




JS10 


BSI 


L 


FOOO 


1 


DC 




/316C 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MOX 




B809 


LOOP 



e 

c 

€ 
C 



B808 



J809 



B809 



J815 



J810 



»»«»»♦»»•*»•*»*»•»*•»»»»»•»»»**»»*»»•*•»»»*»» 
• 

• MULTIPLV-DIV TEST S8810O 

* 

• THIS TEST TAKES 4 NUMBERS 

• /BOOOt /COOOt /4000 AND 

• /2001 ANO MULTIPLIES AND 

• DIVIDES THE RESULT OF THE 

• MULTIPLICATION BY ALL 

• VALUES OF NEGATIVE AND 

• POSITIVE NUMBERS. THIS 

• PROCEDURE IS REPETEO 

• UNTIL ALL FOUR NUMBERS 

• HAVE BEEN USED. 
• 

• STEP1 SET MULTIPLICAND AND 

• DIVISOR TO LARGEST NEG. 

• NUMBER. 

• STEP2 TAKE ONE OF FOUR NUMBERS 

• ANO USE IT AS THE 

• MULTIPLIER 

• STEP3 MULTIPLY 

• STEP4 STORE RESULTS IN SYMBOLIC 

• LOCATION N824 

• STEP5 DIVIDE 

• STEP6 CHECK RESULT 

• STEP7 INCREMENT MULTIPLICAND 



DATE 
EC NO. 



02JAN66 
419490 



01MAV66 
415490C 



15N0V66 
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15FEB68 
420403 



26AUG68 
420403A 
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3A150340 
3A 150350 
3A1 50360 
3A150370 
3A150380 
3A150390 
3A 150400 
3*150410 
3A150420 
3A 150430 
3A1 50440 
3A150450 
3A1 50460 
3 A 150470 
3 A 150480 
3A 150490 
3A1 50500 
3A150510 
3A150520 
3A150530 
3A150540 
3A 150550 
3A150560 
3A1S0570 
3 A 150580 
3A 150590 
3A1 50600 
3A 150610 
3 A 150620 
3A150630 
3A1 50640 
3A150650 
3 A 150660 
3A150670 
3 A 150680 
3A150690 
3A1S0700 
3A150710 
3A150720 
3A 150730 
3A1 50740 
3A 150750 
3A1 50760 
3A150770 
3A1507B0 
3A 150790 
3A1 50800 
3A150810 
3A1 50820 
3A 150830 
3 Al 50840 
3 A 150850 
3A150860 
3A 150870 
3A150880 
3A 150890 
3A1 50900 
3A150910 
3A1 50920 
3A150930 
3A1 50940 
3 A 150950 
3A1 50960 
3A 1509 70 
3A1 50980 
3 A 150990 
3A1 51000 
3A151010 
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DATE 
EC NO. 






NOTE — 



ANO DIVISOR BY 1. 
STEP8 GO TO STEP 2 IF ALL 

VALUES HAVE NOT BEEN 

USED AS MULTIPLICANDS AND 

DIVISORS. 
STEP9 SET UP FOR NEXT ONE OF 4 

MULTIPLIERS. 
STEP 10 GO TO STEP 2 IF ALL 4 
NUMBERS HAVE NOT BEEN 
USED. 



THREE WORD LOCATIONS ARE AVAILABLE FOR 
MANUAL INSERTION OF ANY VALUE DESIRED. 
THEY ARE AT LABEL ADDRESS N82Ul t N821L2 
AND N821&3. 



CAUTION •• 



DO NOT CHANGE THE WORD AT LABEL 
LOCATION N822 S /mm*. 



:»•**«* 



CORE DATA OR »LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS 5 REMARKS IDtSEG*> AT SIGHT 



0026 
0D27 
0029 
0D2B 
0D2C 
0D2D 
0D2E 
002F 
0D30 
0D31 
0D33 
0034 
0035 
0036 
0D36 
0D3A 
00 3C 
0D3D 
0D3F 
0D40 
0D41 
004 3 
0045 
0046 
0D4B 
0D49 
0D4A 
004B 
0D4C 
0D4E 
004F 
0051 
0052 
0053 
0055 



6104 

OCOO 0F02 

C400 0F05 

1808 

4804 

7028 

C0C9 

DOC 8 

COCA 

A500 OCFB 

D8CE 

2000 

A8C5 

F500 OCFB 

4C16 0030 

4400 0F69 

3160 

4400 0F98 
70F0 
1800 

4C16 0D46 

4400 OF 69 

316E 

4400 0F9S 

70E7 

C0B1 

809C 

OOAF 

4C18 0D49 

F0A9 

4C20 0030 

71FF 

7004 

4400 0FC4 

70D0 



B810 
J814 



JB11 



J612 



J813 
J816 



LDX 

XIO 

LO 

SRA 

BSC 

MDX 

LD 

STO 

LD 

M 

STD 

LDS 

D 

EOR 

BSC 

BSI 

DC 

BSI 

MOX 

RTE 

BSC 

BSI 

OC 

BSI 

MOX 

LD 

A 

STO 

BSC 

EOR 

BSC 

MDX 

MDX 

BSI 

MDX 



LI 



LI 

L 
L 



4 
F003 

zooo 

8 

E 

A840 

NB19 

N821 

NB21 

N821 

NS24 



N821 

N821 

J812.C- 

FOOO 

/3160 

FOOE 

J811 

16 

J813.C- 

FOOO 

/316E 

FOOE 

J811 

N821 

NB07 

N821 

J816.S- 

NB19 

J811.Z 

-1 

J814 

F005 

B810 



LD XR 1 WITH /0004 

CK BYPASS MPV/DIV SM 

LD SWITCH SETTINGS 

SHIFT BIT 7 TO BIT POS 

SK IF BIT 1580 

SW BIT 6 ON XBYPASSB 

CONST /8000 

STORE /8000 AT NB21 

LO CSN8210 /8000 

STORE A ANO 

SET C ANO OF OFF 

/8000 

ZERO WITH /8000 

BRANCH ON ZERO 

ACC NOT ZERO 

ERR ID 

CK LOCK ON ERROR 

LOOP ON MPL/DIV 

NOW A8/0000 08/0000 

BRANCH ON ZERO 

REMAINDER IN Q REG 

ERR ID 

CK LOCK ON ERROR 

LOOP ON MPL/DIV 

LD /8000 

ADO ONE 

BRANCH ON ZERO 

BR IF NOT ZERO 

LOOP TO CK SWITCHES 
CK LOCK ON ERROR 
LOOP 



15 



0D56 6100 

0057 TIFF 

0058 3@00 



* 

» TEST OF MOX OPERATION 

« 

AS40> LDX 10 LO XR 1 WITH ZERO 

MOX 1 -1 SK IF SIGN CHANGES 

WAIT MOX FAILED TO SKIP 
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3A1 51020 
3A15103O 

3A151040 * 

3A151050 

3A1 51060 . 

3*151070 * 

3A1 51080 
3A 15 1090 

3A151100 • 

3A151110 
3A151120 

3A151130 * 

3A151140 
3A151150 

3*151160 * 

,3*151170 
3*151180 

3A151190 3 

3A151200 
3*151210 

3A151220 * 

3A151230 
3A1S1240 

3*151250 « 

3A151260 
3A 15 1270 

3A1512BO f 

3*151290 
3*151300 

3A151310 3 

3*151320 
3*151330 

3A151340 3 

3*151350 
3*151360 

3*151370 9 

3*151380 
3*151390 

3*151400 

3*151410 

3A1 51420 _ 

3*153*30 O 

3A1S&440 
3A1514SS 

3A1514*® 9 

3*151470 
3*151480 
3*151490 
3*151500 
3*151510 
3*151520 
3*151530 
3A151540 
3A 15 1550 
3A151560 
3*151570 
3A1 51580 
3*151590 
3*151600 
3*151618 
3A1 51620 
3*151630 
3*151640 
3*151450 
3*151660 
3*151670 
3*151680 
3*151690 



02JAN&6 
415*?0 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUC68 
420403* 



PROG 10 
PAGE 
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0059 





6960 






STX 


1 


N840 


STORE CSXR lo AT N840 


3A1 51700 





• 












• 








• MDX OP 

ZERO ACC HITH /FFFF 


3 Al 52380 
3A152390 








0D5A 





C06C 






LO 




N84C 


LD VALUE OF XR 1 


3A151710 




• 




0DA9 





F01E 






EOR 




N841 








005B 





F06C 






EOR 




N841 


ZERO ACC HITH /FFFF 


3A1 51720 







OOAA 





4C18 


ODAF 




BSC 


L 


G849.C- 


BRANCH ON ZERO 


3A1S2400 








' 0D5C 
0D5E 






4C1B 

4400 


0061 
0F69 




BSC 
BSI 


L 
L 


G840,£- 
FOOO 


BRANCH ON ZERO 
MDX XR 1 FAILED 


3A151730 
3 Al 51740 


f \ 






OOAC 
OOAE 






4400 
313A 


0F69 




BSI 

OC 


L 


FOOO 
/313A 


INDIRECT MOX FAILED 
ERR ID 


3A152410 
3A1 52420 
3A152430 








0060 





3135 






DC 




/3135 


ERR 10 


3A151750 


c f 


• 




ODAF 





4400 


0FC4 


GB49 


BSI 


L 


F005 


CK LOCK ON ERROR 








0D61 





4400 


0FC4 


G840 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 51760 








0DB1 





70EA 






MDX 




A 849 


LOOP 


3A1 52440 








0063 





70F2 






MDX 




A 840 


LOOP 


3A151770 
















••*••*•*••••••*•••••*•*•••*•••••••*•**•**•*••*»«•• 


3A152450 
3A 152460 ' 
















»»»*»»»»*»»»•*»»*»»»»»»»»»»»»«»»»»»»»»»*»»**» 


3A1517B0 





• 




0082 





7400 


00C6 


A84A 


MDX 


L 


NB4A,0 


TEST SKIP IF ZERO 








0D64 





CO 68 




A842 

* 


LO 




N845 


LO WITH AOOR OF 
• LABEL N844 


3A 15 1790 
3A1S1B00 








00B4 
00B5 






7001 
7003 






MDX 
MDX 




G84A 
H84A 


BVPASS IF CORRECT OP 


3A 152470 
3A1 52480 








0065 





7401 


0DC9 




MDX 


L 


N842.1 


BR TO LABEL AOOR N842 CI 


3A151810 





• 




0DB6 





4400 


0F69 


G84A 


BSI 


L 


FOOO 


MOX L FAILEO tq SKIP 


3A152490 








0067 





F065 






EOR 




NB45 




3A151B20 








0DB8 





3171 






DC 




/3171 


ERR ID 


3A1 52500 
3A152S10 








0068 





4C18 


0060 




BSC 


L 


H842.C- 


BRANCH ON ZERO 


3A151830 


*, t 






0DB9 





4400 


0FC4 


H84A 


BSI 


L 


F005 


CK LOCK ON ERROR 








0D6A 





4400 


0F69 




BSI 


L 


FOOO 


ACC OISTROVED AFTER MDX 


3A151B40 





• 




006B 





70F6 






MDX 




A84A 


LOOP 


3A152520 








0D6C 





316F 






DC 




/316F 


ERR ID 


3A151850 
















**»»»»»«**»»»***«*«»»»*»»•*»»»»*»•*» »»«»»»«»»»»»** 


3A152530 








006D 





C05B 




H842 


LD 




N842 


LD At/3000 


3A151B60 








ODBC 





7400 


ODCC 


A85A 


MDX 


L 


N844,0 


TEST NON SKIP 


3A152S40 








0D6E 





F05F 






EOR 




N846 


ACC NOW /0001 


3A151B70 





• 




ODBE 





7003 






MDX 




H85A 




3A1525S0 








006F 





4C18 


0074 




BSC 


L 


G842,C- 


BRANCH ON ZERO 


3A151B80 








ODBF 





4400 


OF 69 




BSI 


L 


FOOO 


MDX L SKIPED 


3A152S60 








0071 





4400 


OF 69 




BSI 


L 


FOOO 


AOD TO MEM FAILEO 


3A151890 








0DC1 





3172 






OC 




/3172 


ERR ID 


3A152570 








0D73 





3136 






OC 




/3136 


ERR 10 


3A151900 





ft 




00C2 





4400 


0FC4 


H85A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152580 








0074 





C056 




G842 


LO 




N843 


LO /3000 


3A151910 








0DC4 





70 F7 






MOX 




A8SA 


LOOP 


3A 152 590 








0075 





0053 






STO 




N842 




3A151920 








00C5 





7009 






MDX 




A880 


EXIT TO NEXT ROUTINE 


3A1S2600 








0D76 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A151930 


9 


• 




00C6 





0000 




NB4A 


DC 







CONSTANT ZERO 


3A152610 








0078 





70EB 






MDX 




A842 


LOOP 


3A151940 
















****»»*»»**»*»*»*»**»***»*»»*««**•**»»*»»**•»•»»»« 


3A1S2620 
















*•»»»»»*»»**«»»»•*»»»*»*»**»»»»»*»»»»»*»•»*»» 


3A151950 








»**»»*•***•*•***»**»»**»•••••*»•»•»»*»•*»»»•»»»»»*••••»»•»»*»»»•»*»»•»» 


3A152630 








•••••••••a************************************************************* 


3A151960 





• 




CORE 




DATA OR 


»LA- 


OPER- 








3 Al 52640 








CORE 




DAT! 


OR 


•LA- 


OPER- 








3A151970 








AOOR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


t REMARKS IDCSEO* AT RIGHT 


3A152650 








AOOR 




INSTRUCTION 


• BEL 


ATION 


FT 


OPERANDS 


t REMARKS IOeSEO* AT RIGHT 


3A151980 








***»*•*»**»**»»**»»»«»»*»****»»•»•»»*»»»»»*»*»»*»•»••»•»••»••••»••»»•»* 


3A1 52660 








»»»»*»*»»«»«*»»*«»*»»»****»♦»»*»**»**»*»»*»»»»*»»**»»»»»»»»»»****»**»*» 


3A 15 1990 





t 




00C7 





0000 




N840 


DC 




/OOOO 


STORAGE 


3A152670 








0079 





6600 


FFFE 


A 844 


LOX 


L2 


-2 


LD XR 2 WITH -2 


3A152000 








00C8 





FFFF 




N841 


OC 




/FFFF 




3A152660 








007B 





7600 


0001 




MDX 


L2 


1 


ADO ONE TO XR 2 


3A152010 








00C9 





3000 




N842 


HAIT 






AOD TO MEM FAILED 


3A152690 








00 70 





6A49 






STX 


2 


N840 


STORE XR 2 


3A152020 




• 




ODCA 





3000 






HAIT 






ADD TO MEM FAILED 


3A152700 








0D7E 





C048 


/ 




LD 




N840 


LD HITH XR 2 VALUE 


3A 152030 








OOCB 





3000 




N843 


HAIT 






ADD TO MEM FAILEO 


3A152710 








007F 





F048 


0085 / 




EOR 




N841 


ZERO ACC HITH /FFFF 


3A152040 








ODCC 





0001 




N844 


OC 




/0001 




3A152720 








0080 





4C1B 




BSC 


L 


G844.C- 


BRANCH ON ZERO 


3A152050 




• 




OOCO 





ODCC 




N845 


DC 




N844 




3A152730 








0062 





4400 


OF 69 




BSI 


L 


FOOO 


MDX LONG XR 2 FAILED 


3A1 52060 








OOCE 





3001 




N846 


OC 




/3001 




3A152740 








0084 





3137 






DC 




/3137 


ERR 10 


3A152070 
















• 










3A152750 








0085 





4400 


0FC4, 


GB44 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152080 




• 












• 






TEST 


OF SLC OPERATION 


3A152760 








0087 





70F1 






MDX 




A844 


LOOP 


3A 152090 
















• 










3A152770 
















»»»»*»»»*»•»•*»•»•»»*»*»•»»»»»»»»*»»«»»»»»»»« 


3A152100 
















»••»»•»»»»»»•«»»»»»•••»»»»••»»•»•»»•»»»»»«»»« 


3A1 52780 








0088 





63FF 




AB46 


LOX 


3 


-1 


LO XR 3 HITH -1 


3A 152110 




• 




ODCF 





610A 




A880 


LDX 


1 


10 


LD XR 1 HITH CIO 


3A152790 








0089 





7301 






MDX 


3 


1 


AOD UNE TO XR 3 


3A 152 120 








ODDO 





CCOO 


0EC8 




LOO 


L 


N882 


LD Af/OOOO Oi/FFFF 


3A152S00 








0D8A 





7001 






MDX 




G846 


DIO NOT SK ON MDX 


3A 152 130 








0002 





2002 






LOS 




2 


SET C ON 


3A152810 








0088 





7003 






MDX 




H846 




3A152140 




• 




00D3 





1140 






SLCA 


1 





NOW Af/OOOO Qi/FFFF 


3A1 52820 








008C 





4400 


OF 69 


G846 


BSI 


L 


FOOO 


XR 3 NO SKIP AT 


3A152150 








0004 





6D00 


0EC7 




STX 


LI 


N880 


STORE CSXR IB 


3A152830 








008E 





3138 






DC 




/3138 


ERR ID 


3A152160 








00D6 





2812 






STS 




G881 


STORE CARRY CONDITION 


3A152840 








008F 





4400 


0FC4 


H846 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152170 




• 




0DD7 





4C18 


OODC 




BSC 


L 


G880.C- 


BRANCH ON ZERO 


3A1528SO 








0D91 





70F6 






MDX 




A846 


LOOP 


3A152180 








0DD9 





4400 


OF 69 




BSI 


L 


FOOO 


ACC N0T8ZER0 


3A1 52*60 
















*»»»»•»»••»»**»»»»»»»»*«»*»»»»»•»»»»»»»»»•»»» 


3A152190 








OODB 





313B 






OC 




/313B 


ERR 10 


3A152870 








0D92 





61FF 




A848 


LDX 


1 


-1 


LO XR 1 HITH -1 


3A152200 




• 




OODC 





4400 


0F98 


G880 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 52680 








0093 





7104 






MDX 


1 


4 


ADD 4 TO XR 1 


3A152210 


t 




OOOE 





70 FO 






MOX 




A880 


LOOP 


3A 152890 








0094 





7001 






MDX 




G848 


DID NOT SK ON MDX 


3A152220 








ODDF 





C400 


0EC7 




LO 


L 


N880 


LO PREVIOUS CSXR la 


3A1 52900 








0095 





7003 






MDX 




H848 




3A152230 





• 




00E1 





4C18 


0DE6 




BSC 


L 


G862.C- 


BRANCH ON ZERO 


3A152910 








0096 





4400 


OF 69 


G848 


BSI 


L 


FOOO 


SIGN CHANGE-NO SKIP 


3A152240 








ODE 3 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 NOTfZERO 


3A1S2920 








0098 





3139 






DC 




/3139 


ERR 10 


3A152250 








ODES 





313C 






DC 




/313C 


ERR 10 


3A 1529 30 








0099 





4400 


0FC4 


H848 


bsi 


L 


F005 


CK LOCK ON ERROR 


3A152260 





• 




0DE6 





4400 


0F96 


G882 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A152940 








0D9B 





70 F6 






MDX 




A848 


LOOP 


3A152270 








ODES 





70 E6 






MDX 




A880 


LOOP 


3A 152950 
















»»»»*»•»»»»»»»»»»»»»*»»*»«»»»»♦»•»»*»»»*»*»»* 


3A152280 








0DE9 





2000 




G881 


LDS 







SAVEO BY STS ABOVE 


3A152960 








009C 





6500 


FFFE 


A849 


LDX 


LI 


-2 


LD XR 1 HITH -2 


3A152290 


© 


• 




OOEA 





4B02 






BSC 




C 


SK IF CARRY OFF 


3A1S2970 








0D9E 





COFF 




H849 


LO 




N849 




3A152300 








ODEB 





7004 






MDX 




G883 


CARRY ON 


3A1 52980 








0D9F 





7580 


OOCO 




MDX 


11 


N845 




3A152310 








OOEC 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A 15 2990 








00A1 





6925 






STX 


1 


N840 


STORE CXXR la AT N840 


3A 152 320 





• 




ODEE 





70E0 






MOX 




A880 


LOOP 


3A153O00 








00A2 





FOFB 






EOR 




H849 




3A152330 








OOEF 





7006 






MOX 




A884 


EXIT TO NEXT ROUTINE 


3A1S3O10 








00A3 





4C18 


0DA8 




BSC 


L 


K849.C- 


BRANCH ON ZERO 


3A1S2340 








ODFO 





4400 


0F69 


G883 


BSI 


L 


FOOO 


CARRY ON SSHOULD NOT BED 


3A153O20 








0DA5 





4400 


OF 69 




BSI 


L 


FOOO 


ACC GONE AFTER MDX INOEXEO 


3A152350 





• 




0DF2 





3160 






OC 




/3160 


ERR ID 


3A 15 3030 








00A7 





3168 






DC 




/3168 


ERR 10 


3A152360 








OOF 3 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 53040 








00A8 





CO IE 




K849 


LD 




N840 


LD VALUE OF XR 1 AFTER 


3A1S2370 


a 


• 




OOFS 





70 D9 






MOX 




A880 


LOOP 


3A153050 






DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 


PROG 10 03A1-1 


• 


• 


DATE 


02JAN66 01NAY66 


1SN0V66 


15FEB68 26AUG6S 


PROG 10 


03A1-1 


c 


EC NO. 


415490 415490C 


419643 


420403 420403A 
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• 


EC NO. 415490 415490C 


419643 


420403 420403A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 40 



« 
t 
• 

c 

c 



DATE 
EC NO. 



0DF6 
0DF8 
ODFA 
ODFB 
ODFC 
ODFD 
ODFF 
0E01 
0E03 
0E04 
0E06 
0E07 
0E09 
OEOB 
OEOD 
OECF 
0E11 
0E12 
0E14 
0E15 
0E16 
0E17 

oEie 

0E1A 
0E1B 
0E1D 



6580 

CCOQ 

2000 

1140 

2818 

F400 

4C18 

4400 

3130 

4400 

70EF 

6D00 

C400 

F400 

4C18 

4400 

313E 

4400 

70E1 

2000 

4802 

7003 

4400 

3161 

4400 

7008 



OECO 
OECA 



OECC 
0E04 
OF 69 

0F98 

0EC7 
0EC7 
0ED4 
0E12 
0F69 

0F98 



OF 69 
0FC4 



**•*•»•»*»***»*»*»«»*»**••*»»»»*»»•»•*»*»#*** 



A884 



G884 



G886 



GB85 



G887 



LDX 

LOO 

LOS 

SLCA 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

STX 

LO 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LOS 

BSC 

MDX 

BSI 

DC 

BSI 

MDX 



II N887 LD XR 1 WITH /FFDO 

L N884 LD A0/O001 Q#/0010 

SET C AND OF OFF 

1 ACC NOW /8000 

G885 STORE C AND OF CONDITION 

L N886 ZERO WITH /8000 

L 6884,6- BRANCH, ON ZERO 

L FOOO ACC NOTH/8000 

/313D ERR 10 

L FOOE CHECK LOOP SWITCH 

A884 LOOP 

LI N880 STORE CSXR la AT N880 

L N880 LO CSN880O 

L N88E ZERO WITH /FF01 

L G866,£- BRANCH ON ZERO 

L FOOO XR-1 NOT FFOl 

/313E ERR ID 

L FOOE CK LOCK ON ERROR 

A 8 84 LOOP 

SAVED BY STS ABOVE 

C SK IF CARRY OFF 

GB87 

L FOOO CARRY OFF, SHOULD BE ON 

/3161 ERR ID 

. F005 CK LOCK ON ERROR 

A884 LOOP 



CORE 
AODR 

#***]£* 

OEIE 

0E20 

OE22 

0E23 

0E25 

0E27 

0E29 

0E2A 

0E2C 

0E2D 

0E2F 

0E31 

0E33 

0E35 

0E37 

0E38 

0E3A 



DATA OR 

INSTRUCTION 

6580 OECB 
CCOO OECC 
1140 

F400 OECC 
4C18 0E2A 
4400 OF 69 
313F 

4400 0F98 
70F1 

6D00 0EC7 
C400 0EC7 
F400 OECB 
4C18 0E38 
4400 OF 69 
3140 
4400 0FC4 



*LA- OPER- 

*BEL ATION FT OPERANDS C REMARKS ID&SEQf AT RIGHT 



A888 



G888 



G88A 



0E3B 
0E3C 
0E3D 
0E3E 
0E40 
0E41 
0E43 
0E45 
0E47 
0E4B 
0E4A 

0E4B 
0E4C 
0E40 
0E4E 
0E50 
0E51 



70E3 

6110 
6210 
6310 

C400 OECA 
1041 

F400 0ED1 
4C18 0E48 
4400 0F69 
3162 

4400 0FC4 
70F0 

6110 
6210 
6310 

CCOO 0EC8 
10CF 
F400 0ED5 



LDX 

LDD 

SLCA 

EOR 

BSC 

BS! 

oc 

BSI 

MDX 

STX 

LD 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



II 

L 

1 
L 
L 
L 



LI 

L 
L 
L 
L 



N885 LO XR 1 WITH /0010 

N8B6 LD A* /8000 Q0/FFDO 

ACC NOW /8000 

N886 ZERO WITH /8000 

G888,£- BRANCH ON ZERO 

FOOO ACC NOT08OOO 

/313F ERR 10 

FOOE CK LOCK ON ERROR 

A888 LOOP 

N880 STORE CXXR In IN N880 

N880 LO CXN880Q 

N885 ZERO WITH /0010 

G88A f C- BRANCH ON ZERO 

FOOO XR 1 NOTfOOlO 

/3140 ERR 10 

F005 CK LOCK ON ERROR 

A886 LOOP 



A889 LDX 1 16 LD XR 1 WITH /0010 

LDX 2 16 LO XR 2 WITH /0010 

LOX 3 16 LD XR 3 WITH /0010 

LO L N884 LO A#/0001 

SLCA 1 ACC NOW /0002 

EOR L NB8B ZERO WITH /0002 

BSC L G889.6- BRANCH ON ZERO 

BSI L FOOO NON INDEXED SLCA FAILED 

DC /3162 ERR 10 

G889 BSI L F005 CK LOCK ON ERROR 

MDX A869 LOOP 



A88A 



02JAN66 
415490 



01MAY66 
41 5490C 



LDX 
LDX 
LOX 
LDO 
SLC 
EOR 



15N0V66 
419643 



16 

16 

16 

N882 

IS 

N88F 



15FEB6B 
420403 



LO XR 1 WITH /0O1O 
LD XR 2 WITH /0O1O 
LD XR 3 WITH /0010 
LO A»/0000 Q*/FFFF 
NOW A#/7FFF 0#/1000 
ZERO WITH /7FFF 



26AUG68 
420403A 



3A153060 

3A153070 

3A153080 

3A IS 3090 

3A153100 

3*153110 

3A1S3120 

3A153130 

3A1S3140 

3A153150 

3A153160 

3A153170 

3A153180 

3A153190 

3A1 53200 

3A153210 

3 Al 53220 

3A153230 

3A1 53240 

3A153250 

3A1 53260 

3A153270 

3A153280 

3A153290 

3A153300 

3A153310 

3A1 53320 

3A1S3330 

3 Al 53340 

3A IS 3350 

3A153360 

3A153370 

3A153380 

3A1S3390 

3A153400 

3A153410 

3A1 53420 

3A153430 

3 A 153440 

3A 15 3450 

3A1 53460 

3 A 15 3470 

3A153480 

3 A 153490 

3A1 53500 

3A153510 

3A153520 

3A153530 

3A153540 

34153550 

3A 153560 

3A153570 

3A153580 

3A153590 

3A153600 

3A153610 

3A153620 

3A 153630 

3A1 53640 

3 A 153650 

3A153660 

3A 15 3670 

3A1 53680 

3A 15 3690 

3A153700 

3A153710 

3 Al 53720 

3A153730 



PROG ID 
PAGE 



c 
c 
c 

• 

t 
• 








c 



e 
e 
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PART NO. 2191204 
PAGE 40A 



s 

« 

S 



03A1-1 
40 



OATE 
EC NO. 



0E53 
0E55 
0E56 
0E58 



4C18 0E56 
3173 

4400 0FC4 
70 F2 



0E59 
0E5B 
0E5C 
0E50 
0E5F 
0E61 
0E62 
0E64 
0E65 
0E66 
0E68 
0E6A 
0E6B 
0E60 
0E6E 
0E6F 
0E70 
0E72 
0E74 
0E75 
0E77 



6580 0ED2 
C872 
11C0 

4C16 0E62 
4400 0F69 
3141 

4400 0F98 
70 F4 
18D0 

4C18 0E6B 
4400 OF 69 
3142 

4400 0F9B 
70 EB 
6958 
C057 

4C18 0E75 
4400 OF 69 
3143 

4400 0FC4 
70E1 



BSC L G88B.C- NON INDEXED SLC FAILED 

DC /3173 ERR ID 

G888 BSI L F005 CK LOCK ON ERROR 

MDX A88A LOOP 

A88C LDX II N88C LD XR 1 WITH /0020 

LOD N888 LD A*/0000 0»/0000 

SLC 1 ACC NOW AK/OOOO Qt/OOOO 

BSC L G88CE- BRANCH ON ZERO 

BSI L FOOO ACC NOTHOOOO 

DC /3141 ERR 10 

G88C BSI L FOOE CK LOCK ON ERROR 

MOX A88C LOOP 

RTE 16 ACC NOW Af/OOOO 

BSC L G88E,£- BRANCH ON ZERO 

BSI L FOOO REG NOTiOOOO 

DC /3142 ERR ID 

G88E BSI L FOOE CK LOCK ON ERROR 

MOX A88C LOOP 

STX 1 N880 STORE CSXR 10 IN N8B0 

LO N880 LD CXN880H 

BSC L J880.C- BRANCH ON ZERO 

BSI L FOOO XR 1 NOT»O00U 

DC /3143 ERR ID 

J880 BSI L FOOS CK LOCK ON ERROR 

MOX A88C LOOP 



0«/0000 



A88C 

CORE OATA OR »LA- OPER- 

ADOR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IO£SEO# AT RIGHT 



OE78 
0E7A 
OE78 
0E7C 
0E7D 
0E7F 
0E81 
0E82 
0E84 
OE85 
0E86 
0E8B 
0E8A 
0E8B 
0E80 
0E8E 
0E8F 
OE90 
0E92 
0E94 
0E96 
0E97 
0E99 

0E9A 
0E9B 
0E9C 
0E90 
0E9E 
0E9F 
0EA1 
0EA2 
0EA4 
0EA5 
0EA6 
0EA8 



6580 0ED3 

C855 

11C0 

F04F 

4C18 0E82 

4400 0F69 

3144 

4400 0F98 

70F3 

1800 

4C18 OEBB 

4400 0F69 

3145 

4400 0F98 
70EA 
6938 
C037 

F400 0E04 
4C18 0E97 
4400 0F69 
3146 

4400 0FC4 
700 E 

C835 
61 IF 
11C0 
4802 
7003 

4400 OF 69 
3147 

4400 0F98 
70F5 
F026 

4C18 OEAB 
4400 OF 69 



B882 



JBB2 



J884 



J88& 



LDX 

LOD 

SLC 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

BSI 

MOX 

STX 

LD 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 



II 



N88D LD XR 1 WITH /FFOF 

N88A LD Atf/OOCO Q#/0002 

MOW Ad/8000 OK/0000 

N886 ZERO WITH /8000 

J882, £- BRANCH OK ZERO 

FOOO ACC NOT*/ 8000 

/3144 ERR ID 

FOOE CK LOCK ON ERROR 

B882 LOOP 

16 NOW AH/OQOO 0#/8000 

J884,£- BRANCH ON ZERO 

FOOO REG NOTiOOOO 

/3145 ERR ID 

FOOE CK LOCK ON ERROR 

B882 LOOP 

N880 STORE CSXR In AT N880 

N880 LO CSN880n 

N88E ZERO WITH /FFOl 

J886,£- BRANCH OW ZERO 

FOOO XR-1 NOT FFOl 

Z3546 ERJS ID 

FOOS CK LOCK ON ERROR 

B882 LOOP 



********«*«***»»«»»»»»*****»****#i»««*»$**»*»** 



B884 



J887 



02JAN66 
415490 



01MAY66 
41S490C 



LOD 

LOX 

SLC 

BSC 

MDX 

BSI 

OC 

BSI 

MDX 

EOR 

BSC 

BSI 



15N0V66 
419643 



N88A 

31 



C 

J887 

FOOO 

/3147 

FOOE 

8884 

N886 

J886,£ 

FOOO 



LO AfS/OOOG 0*/0002 

LD UR 1 WITH /001F 

N06« Alt/8000 Qg/OOOO 

SK IF CARRY OFF 

CARRY ON 

CARRY NOT ON 

ERR ID 

CK LOCK ON ERROR 

LOOP 

ZERO WITH /8000 

BRANCH ON ZERO 

ACC NOT EQUAL 8000 



15FEB68 
420403 



26AUG68 
420403A 



3A1 53740 

3A153750 

3A1 53760 

3A153770 

3A153780" 

3A 15 3790 

3A153800 

3A153810 

3A1 53820 

3A153830 

3A1 53840 

3A153850 

3A1 53860 

3A153870 

3A153880 

3A153890 

3A1 53900 

3A153910 

3A153920 

3A153930 

3A153940 

3A153950 

3A153960 

3A153970 

3A153980 

3A153990 

3A154000 

3A154010 

3A154020 

3A 154030 

3A1 54040 

3A 154050 

3A1 54060 

3A154070 

3A154080 

3A 154090 

3*154100 

SA154110 

3A154120 

3A154130 

3A154140 

3A154150 

3A154160 

3A154170 

3A154180 

3A154190 

3A1 54200 

3A 1542 10 

3 Al 54220 

3A 154230 

3A1 54240 

3 A 154250 

3A154260 

3A 154270 

3A154280 

3A154290 

3A1 54300 

3A154310 

3A154320 

3A154330 

3A154340 

3A154350 

3A1 54360 

3A154370 

3A1543B0 

3A154390 

3A154400 

3A154410 



PROG 10 
PAGE 



03A1-1 



1 

3 
3 
3 
3 
* 


t 

o 

9 

O 
9 

• 

• 
9 

9 
• 
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DATE 
EC NO. 



OEAA 


3148 




OEAB 


4400 


0F98 


OEAD 


70EC 




OEAE 


6D0O 


0EC7 


OEBO 


C016 




0EB1 


F018 




0EB2 


4C18 


0EB7 


0E84 


4400 


OF 69 


0EB6 


3149 




OEB? 


4400 


0FC4 


0EB9 


70E0 




OEBA 


611C 




OEBB 


C814 




OEBC 


1100 




OEBD 


4802 




OEBE 


7001 




OEBF 


7003 




OECO 


4400 


0F69 


0EC2 


314A 




0EC3 


4400 


0FC4 


0EC5 


70 F4 




0EC6 


700F 




0EC7 


0000 




0EC8 


0000 




OECB 


0000 




0EC9 


FFFF 




OECA 


0001 




OECB 


0010 




OECC 


8000 




OECO 


FFDO 




OECE 


0000 




OECF 


0000 




OEDO 


0000 




0E01 


0002 




0ED2 


0020 




0ED3 


FFOF 




0ED4 


FF01 




0ED5 


7FFF 







DC 




/3148 


ERR ID 


J888 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




MOX 




B884 


LOOP 




STX 


LI 


N880 


STORE XR 1 WITH CTN880D 




LO 




N880 


LD CSN880O 




EOR 




N884 


ZERO WITH /0001 




BSC 


L 


J8B9.C- 


BRANCH ON ZERO 




BSI 


L 


FOOO 


XR 1 NOT EQUAL 0001 




DC 




/3149 


ERR ID 


J889 


BSI 


L 


F005 


CK LOCK ON ERROR 




MDX 




B884 


LOOP 


•*••*•**««***•*•••****•**•••••*****•**•****•• 


B885 


I OX 


1 


28 


LO XR 1 WITH /001C 




LDD 




N88A 


LD A0/OOOO Q0/OOO2 




SLA 


1 





NOW AH/2000 Q0/OOOO 




BSC 




C 


SKIP IF CARRY OFF 




MDX 




J88A 






MDX 




J88B 




J88A 


BSI 


L 


FOOO 


CARRY IS ON 




DC 




/314A 


ERR ID 


J88B 


BSI 


L 


F005 


CK LOCK ON ERROR 




MDX 




B885 


LOOP 




MDX 




B8A0 


EXIT TO NEXT ROUTINE 


N880 


DC 
BSS 


E 


/OOOO 


STORAGE 


N882 


DC 
DC 




/OOOO 
/FFFF 




N884 


OC 




/0001 




N885 


DC 




/0010 




N886 


DC 




/8000 




N887 


DC 




/FFDO 




N888 

/ 


DC 
DC 




/OOOO 
/OOOO 




N88A 


DC 




/OOOO 




N88B 


DC 




/0002 




N8BC 


DC 




/0020 




N88D 


DC 




/FFDF 




N88E 


DC 




/FF01 




N88F 


DC 




/7FFF 





• TEST COMPARE INSTRUCTION 



* 



* 

* 
* 
* 
* 

* 



A • ACCUHULATOR 
ACCUMULATOR EXTENTION 
M * WORD BEING COMPARED 
MCI • 2ND WORD ON DCM 

THE 1800 HAS A COMPARE INSTRUCTION 
BUT THE 1130 DOES NOT. THIS ROUTINE 
DETERMINES WHICH MACHINE IS BEING 
TESTED BEFORE ATTEMPTING A COMPARE 
INSTRUCTION. 

INOEX REGISTERS ARE HARDWARE IN 1800 
AND CORE STORAGE LOCATIONS IN 1130. 



*»**»»**»****»♦*»***♦*♦******»»»«♦*»****»»»»**»**»»*♦»**»♦***»»»♦*»***» 

CORE DATA OR »LA- OPER- 

AODR INSTRUCTION *BEL AT10N FT OPERANDS t REMARKS IDCSEQ0 AT RIGHT 

a********************************************************************** 



0ED6 
0ED7 
0ED9 
OEDA 
OEDC 
OEDE 



1810 

0400 0001 
61FF 

C400 0001 
4C20 0F5C 
C072 



B8A0 



02JAN66 
415490 



01NAY66 
415490C 



SRA 

STO 

LOX 

LD 

BSC 

LD 



15N0V66 
419643 



16 CK FOR 1130 OR 1800 

/0001 STORE /OOOO AT AODR /0001 

-I LD XR 1 WITH /FFFF 

/0001 LD cs/ooom 

W8C0tZ BRANCH IF 1130 

N8A2 LO CSN8A2D /4000 



PART NO. 2191204 
PAGE 41 



3A154420 
3A154430 
3 Al 54440 
3A 154450 
3 A 154460 
3A154470 
3A154480 
3A 154490 
3A1 54500 
3A154510 
3A 154320 
3A154530 
3A154540 
3A154550 
3A154560 
3A154570 
3A154580 
3A154590 
3A1 54600 
3A 154610 
3A154620 
3A 1546 30 
3 Al 54640 
3A154650 
3A15466C 
3A154670 
3 Al 54680 
3A 154690 
3A154700 
3A154710 
3A154720 
3A154730 
3A1 54740 
3A154750 
3A1 54760 
3A154770 
3A154780 
3A154790 
3A154800 
3A154810 
3A154820 
3 A 154830 
3A1S4840 
3A154850 
3A1 54860 
3A 154870 
3A154880 
3A 154890 
3A154900 
3A 1549 10 
3A154920 
3A154930 
3 A 1549 40 
3A154950 
3A154960 
3A 154970 
3A154980 
3A154990 
3A1 55000 
3A15501O 
3A155020 
3A15503O 
3A15504O 
3A155050 
3A155060 
3A155070 
3A1550BO 
3A1S5090 



1SFEB68 
420403 



26AUG68 
420403A 
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O • 

O • 

o I • 

c 1 • 
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f 

• 



DATE 
EC NO. 



OEDF B075 






CMP 




N8A0 


A GREATER THAN M 


3A155100 




OEEO 7004 






MDX 




J8A0 


A GREATER THAN M 


3A155110 




0EE1 1000 






SLA 







A LESS THAN M 


3A15512Q 


z 


0EE2 4400 


0F69 




BSI 


L 


FOOO 


A GREATER THAN M FAILED 


3A155130 




0EE4 3148 






DC 




/314B 


ERR ID 


3A155140 




0EE5 4400 


0F98 


J8A0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A155150 





0EE7 70EE 






MDX 




B8A0 


LOOP 


3A155160 




0EE8 F068 






EOR 




N8A2 


ZERO WITH /4000 


3A155170 




0EE9 4C18 


0EF1 




BSC 


L 


B8Al,t- 


BRANCH ON ZERO 


3A1551B0 





OEEB 4400 


0F69 




BSI 


L 


FOOO 


ACC CHANGED ERROR 


3A155190 




OEEO 314C 






DC 




/314C 


ERR ID 


3A1 55200 




OEEE 4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A155210 





OEFO 70E5 






MDX 




B8A0 


LOOP 


3A155220 








*»*»»»»«»»»»»»*»»•»»»»»»*»«»*»»»»*»»**»»•»•»» 


3A155230 




0EF1 C063 




B8A1 


LD 




N8A0 


N8A0 «/0000 


3A155240 


.-% 


0EF2 B05D 






CMP 




N8A1 


N8A1 0/1000 


3A155250 




0EF3 7001 






MDX 




J8A2 


A LESS THAN M FAILED 


3A155260 




0EF4 7003 






MDX 




J8A1 


A LESS THAN M 


3A155270 





0EF5 4400 


0F69 


J8A2 


BSI 


L 


FOOO 


A LESS THAN M FAILEO 


3A155280 




0EF7 3140 






DC 




/314D 


ERR ID 


3A155290 




OEFB 4400 


0FC4 


J8A1 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155300 




OEFA 70F6 






MDX 




B8A1 


LOOP 


3A155310 








*»*»*»•«*»»»»«»»«»»»»»»»*»»»»»»*»»»»»»»»»»»*» 


3A155320 




OEFB C059 




B8A2 


LO 




N8A0 


N8AC t/0000 


3A155330 




OEFC B055 






CMP 




N8A3 


N8A3 0/2000 


3A155340 




OEFO 7001 






MDX 




J8A4 


A LESS THAN M FAILEO 


3A155350 




OEFE 7003 






MDX 




J8A3 


A LESS THAN M 


3A15S360 




OEFF 4400 


0F69 


J8A4 


BSI 


L 


FOOO 


A LESS THAN M FAILEO 


3A 155370 




0F01 314E 






OC 




/3I4E 


ERR 10 


3A155380 




OF 02 4400 


0FC4 


J8A3 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155390 




0F04 70F6 






MDX 




B8A2 


LOOP 


3A1554O0 








»»»•»***«*»»»»»»»»»••»»»»**»»»»»**»*»»*»•»»*» 


3A155410 




0F05 C04F 




B8A3 


LD 




N8A0 


N8A0 0/0000 


3A155420 




0F06 B04A 






CMP 




N8A2 


N8A2 0/4000 


3A155430 




0F07 7001 






MDX 




J8A6 


A LESS THAN M FAILEO 


3A15S440 




0F08 7003 






MDX 




J8A5 


A LESS THAN N 


3A155450 




0F09 4400 


OF 69 


J8A6 


BSI 


L 


FOOO 


A LESS THAN H FAILED 


3A155460 




OFOB 314F 






OC 




/314F 


ERR ID 


3A 155470 


9 


OFOC 4400 


0FC4 


J8*5 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155480 


OFOE 70F6 






MDX 




B8A3 


LOOP 


3A155490 








*»»»•»»*»«»»«»»»»»»»»•»»»»»•»•»*»»»»*»»•»»*«» 


3A155500 




OFOF C044 




B8A4 


LD 




N8C5 


LD /8000 


3A155510 





0F10 B044 






CMP 




N8A0 


COMPARE CXN8A0D /OOOO 


3A155520 




OF 11 7001 






MDX 




J8A8 


A LESS THAN M FAILED 


3A155530 




0F12 7003 






MDX 




J8A7 


A LESS THAN M 


3A1S5540 





0F13 4400 


OF 69 


JBA8 


BSI 


L 


FOOO 


A LESS THAN N FAILED 


3A155550 




0F15 3150 






OC 




/3150 


ERR ID 


3A155560 




0F16 4400 


0FC4 


J8A7 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155S70 




0F18 70F6 






MOX 




B8A4 


LOOP 


3A155580 








»»»»»»»••»»»»•»»»»»»*•»•••••»*»»»*«»*»»»»»»»« 


3A155590 




OF 19 C036 




B8A5 


LD 




N8A1 


LD /1000 


3A15S600 




0F1A B035 






CMP 




NBA1 


CMP /I 000 


3A155610 




0F1B 7002 






MDX 




J8AA 


A EOUAL M FAILEO 


3A155620 




0F1C 7001 






MOX 




J8AA 


A EOUAL M FAILEO 


3A155630 




0F1D 7003 






MOX 




J8A9 


A0H 


3A155640 




0F1E 4400 


OF 69 


J8AA 


BSI 


L 


FOOO 


A0M FAILEO 


3A 155650 




0F20 3151 






DC 




/3151 


ERR ID 


3A155660 




0F21 4400 


0FC4 


J8A9 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155670 




0F23 70F5 






MDX 




B8A5 


LOOP 


3A1556B0 








**»♦***»*******»*»»»*******•»***»*»»*»»»»•*•* 


3A 155690 








• 










3A155700 








• 






test double compare 


3A155710 








* 










3A 155 720 




«•***•*•**••**•••»•*•••••••••****•••*•***•***••«•••••*••••••••**••*•*«• 


3A155730 




CORE DATA OR 


• LA- 


OPER- 








3A155740 




AODR INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS t REMARKS IDCSEO* AT RIGHT 


3A155750 




**••*•••«•*••*•**•«•*•***•**•*•*••**«•*••*••••*•*•*•*•*•••*•••••••••••• 


3A155760 




0F24 C831 




B8C0 


LDD 




N8C6 


LD AS/8000 00/0001 


3A155770 




02JAN66 01HAY66 


15N0V66 


15FEB68 


26AUG68 


PROG 10 03A1-1 


415490 415490C 


419643 


420403 


420403A 


PAGE 
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0F25 B82E 






OCM 




N8C5 


AO GREATER THAN M, MCI 




0F26 7003 






HOX 




J SCO 






0F27 1000 






SLA 







NO-OP 




0F28 4040 






BSI 




FOOO 


FAILED A,Q NOT GREATER 




0F29 3152 






DC 




/3152 


ERR ID 




0F2A 4400 


0F98 


J8C0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0F2C 70F7 






MOX 




B8C0 


LOOP 




OF 2D F028 






EOR 




N8C6 . 


ZERO WITH /8000 




0F2E 4C18 


0F32 




BSC 


L 


JBCltC- 


BRANCH ON ZERO 




OF 30 4038 






BSI 




FOOO 


ACC CHANGED 




0F31 3153 






DC 




/3153 


ERR 10 




OF 32 4400 


0F98 


J8C1 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




OF 34 70EF 






MOX 




B8C0 


LOOP 




OF 35 1800 






RTE 




16 


NOW A#/0001 00/0000 




0F36 F020 






EOR 




N8C6£1 


ZERO WITH /0001 




0F37 4C18 


0F3B 




BSC 


L 


JUC2.E- 


BRANCH ON ZERO 




0F39 402F 






BSI 




FOOO 


REG CHANGED 




0F3A 3154 






DC 




/3154 


ERR 10 




OF 38 4400 


0FC4 


J8C2 


BSI 


L 


F005 


CK LOCK ON ERROR 




OF 30 70 E6 






MOX 




B8C0 


LOOP 








**»»•»»»»»»»**»«»»*»•»»*•»»*»»»•»»**»**»*»»*« 




0F3E C819 




B8C1 


LOD 




N8C7 


LD AH/0000 00/6000 




0F3F 88 I A 






DCM 




NSC 8 


AtQ LESS THAN M, MCI 




0F40 7001 






MOX 




J8C3 


A,0 GREATER THAN M.MC1 




0F41 7002 






MOX 




J8C4 


AtQ LESS THAN M,N£1 




OF 42 4026 




J8C3 


BSI 




FOOO 


FAILED A.Q GREATER 




0F43 3155 






DC 




/3155 


ERR ID 




0F44 407F 




J8C4 


BSI 




F005 


CK LOCK ON ERROR 




0F45 70F8 






MOX 




B8C1 


LOOP 








*»*****»•****»**»****»*••»•**»*•***»•*»**»**« 




0F46 C811 




B8C2 


LOD 




NSC 7 


LD Af/OOOO OK/8000 




0F47 8810 






OCM 




N8C7 


AtQ EOUOL M,MC1 




0F48 7002 






MOX 




J8C5 


A,0 GREATER 




0F49 7001 






MOX 




J8C5 


AtQ LESS 




0F4A 7002 






MOX 




J8C6 


A t Q i NtNCl 




0F4B 40 ID 




JBC5 


BSI 




FOOO 


A,Q • MtMCl FAILED 




0F4C 3156 






OC 




/3156 


ERR ID 




0F4D 4076 




J8C6 


BSI 




F005 


CK LOCK ON ERROR 




0F4E 70F7 






MOX 




88C2 


LOOP 




0F4F 700C 






MOX 




M8C0 


EXIT TO NEXT ROUTINE 




0F50 1000 




N8A1 


DC 




/1000 






0F51 4000 




N8A2 


DC 




/4000 






0F52 2000 




N8A3 


OC 




/2000 






0F54 0000 






BSS 


E 









0F54 8000 




N8C5 


DC 




/8000 






OF 55 0000 




N8A0 


DC 




/OOOO 






0F56 8000 




N8C6 


DC 




/8000 






0F57 0001 






OC 




/0001 






0F58 0000 




N8C7 


DC 




/OOOO 






OF 59 8000 






OC 




/8000 






0F5A 0000 




N8C8 


OC 




/OOOO 






0F58 8001 






OC 




/8001 










*****»**•»***»*»*»»*»*»•*»»»*»*»«»»****»***»» 








»**»***»*»********»»*»»»»»»*»*»»*»**»***»»**» 




**»"•****************»*»*•*«»»♦**»***»*«**»»»*»»»*»•»»*♦»»»♦*»»»»*»*»** 




CORE DATA 


OR 


*LA- 


OPER- 










ADOR INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


£ REMARKS IDCSEQf AT RIGHT 




•*•*••**«**•**»••** 


***•*•*•***••**•*•••******•••*•****•*****«***«*••»*» 




0F5C 0809 




H8C0 


XIO 




N8C1 


READ SWITCHES 




OF 50 COOA 






LO 




N8C3 


LD SW BITS 




0F5E 1804 






SRA 




4 


PLACE SW 11 AT BIT IS POS. 




0F5F 4804 






BSC 




E 


IS SWITCH 11 ON 




OF60 7002 






MOX 




H8C4 


SWITCH 11 ON 




0F61 C003 






LO 




2020 


SWITCH 11 IS OFF-WAIT 




0F62 3003 




X007 


DC 




/3003 


PROGRAM FINISHED 




OF 63 4C00 


9154 


M8C4 


BSC 


L 


A140 






0F65 0003 




Z020 


OC 




/0003 






0F66 0000 






BSS 


E 






DATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 26AUG68 


EC NO. 


415490 415490C 


419643 


420403 420403A 



3A155780 

3A155790 

3A155800 

3A155B10 

3A155820 

3A155830 

3A155840 

3A155850 

3A155860 

3A155870 

3A155880 

3A155890 

3A155900 

3A155910 

3A155920 

3A155930 

3A155940 

3A1SS950 

3A155960 

3A155970 

3A155980 

3A155990 

3 Al 56000 

3A156010 

3A156020 

3A 156030 

3A156040 

3A156050 

3A156060 

3A 156070 

3A156080 

3A 156090 

3A156100 

3A156110 

3A156120 

3A156130 

3A156140 

3A156150 

3A156160 

3A156170 

3A156180 

3A 156 190 

3A156200 

3A156210 

3A156220 

3A156230 

3A156240 

3A 156250 

3A156260 

3A 156270 

3A156280 

3 A 156290 

3A156300 

3A156310 

3A156320 

3A156330 

3A156340 

3A 156350 

3A 156 360 

3A156370 

3A1563B0 

3A156390 

3A1 56400 

3A156410 

3A156420 

3A 156430 

3A156440 

3A156450 
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DATE 
EC NO. 



0F66 0F68 
OF 67 0240 
0F68 OOOO 



N8C1 DC 
N8C2 OC 
N8C3 DC 



N8C3 

/0240 

/OOOO 



EQUAL /3A00 IN 1130 



OF 69 
0F6A 
0F6B 
0F6C 
0F60 
0F6E 
0F6F 
0F70 
0F71 
OF 72 
0F73 
0F75 
0F76 
0F77 
OF78 
0F79 
0F7A 
0F7B 
0F7C 
0F7D 
0F7E 
0F7F 
0F80 
0F81 
0F82 



OOOO 
2816 
0063 
1800 
0062 
0863 
C065 
1807 
4804 
7012 
C480 0F69 



FOOO DC 



DOOC 
C0F2 
001F 
B05B 
DOEF 
C05A 
180 1 
4804 
7000 
C051 
1800 
C04E 
2000 
3000 



FOOL 



0F83 4C80 0F69 



FOOX 
F002 

• 

FOOB BSC 



»*»••*•»»**»*♦»»»»»»»»*»»»» 

ERROR CONTROL ROUTINE 

REENTER ADDRESS 

STS FOOX SAVE STATUS 

STO UOOO SAVE A REG 
RTE 16 

STO U001 SAVE REG 

XIO F003 READ SWITCHES 

i-D 2000 LO SW READINGS 

SRA ^ PLACE SW 8 AT BIT POS 15 

BSC E CK LOOP ON INSTRUCTION 

MDX FOOA » BEING TESTED SW 

LD I FOOO GET WAIT ERROR ID 

STO F002 STORE ERROR ID AT F002 

LO FOOO GET RETURN ADDR 

STO UOOB STORE AT UOOB 

A U006 ADD ONE 

STO FOOO STORE NEW RETURN ADDRESS 

LO ZOOO CK BYPASS ERROR SW 

SRA 1 PLACE SW 14 AT BIT POS 15 

BSC E SKIP IF SW 14 OFF 

MDX FOOF CK FOR 8 OR 12 ON ALSO 

LO U001 RESTORE REG AND WAIT 

RTE 16 PLACE IN Q REG 

LO UOOO RESTORE A REG 

LDS RESTORE C AND OF 1N0. 

WAIT ERROR WAIT B REG 

* SHOWS ERROR ID 
I FOOO EXIT FROM ROUTINE 

* CXFOOOBIS NOW ONE 

• GREATER THAN AT THE 

• BEGINNING OF ROUTINE 



• LOOP ON INSTRUCTION BEING 

* • TESTED 

CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS IO£SEO# AT RIGHT 



0F85 
0F86 
0F87 
OFBB 
0F89 

0F8B 
0F8C 
0F8D 
0F8E 
0F8F 
0F90 
0F91 
0F92 
0F93 
0F94 
0F95 
0F96 
0F97 



C0E3 
0010 
8000 
DOEO 
4CB0 0F69 

1802 
4804 
70F5 
1804 
4804 
70F2 
C043 
OOOO 
083E 
70E5 
0003 
FFFO 
OOOO 



FOOA 



FOOF 



U003 
UOOA 
UOOB 



LO 
STO 

A 

STO 

BSC 

SRA 

BSC 

MOX 

SRA 

BSC 

MOX 

LO 

OC 

XIO 

MDX 

OC 

DC 

DC 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



FOOO 
UOOB 
U003 
FOOO 
FOOO 

2 

E 

FOOB 

4 

E 

FOOB 

ZOOO 

F003 
FOOL 
3 

-3 




1SFEB68 
420403 



GET RETURN ADOR AT FOOO 

STORE RETURN ADDRESS 

ADD 3 

UPDATE RETURN ADDRESS 

BR TO UPDATAD ADDRESS 

CK FOR SH 8 OR 12 

PLACE SW 12 AT BIT POS 15 

SKIP IF SW 12 OFF 

BR TO EXIT IF SW 12 ON 

PLACE SW 8 AT BIT POS 15 

SKIP IF SW 8 OFF 

BR TO EXIT IF SW 8 ON 

LD SWITCH REAOINGS 

IMPROPER BIT SNSt 14 ON 

•WITHOUT 8 OR 12 ON 

CONSTANT 3 

CONSTANT -3 

ERROR OCCURED CONTROL 
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3A156460 
3A 156470 
3A156480 
3 A 156490 
3A156500 
3A156510 
3A156S20 
3A156530 
3A156540 
3A156550 
3A156560 
3A156570 
3A1565B0 
3A 156590 
3A1 56600 
3A1S6610 
3A156620 
3A156630 
3A156640 
3A 156650 
3A1S6660 
3A 156670 
Ml 56680 
3A156690 
3A156700 
3A156710 
3A156720 
3A 1567 30 
3A156740 
3A156750 
3A156760 
3A156770 
3A156780 
3A 156790 
3A156800 
3A156810 
3A156820 
3A156830 
3A156840 
3A 156850 
3A156B60 
3A156870 
3A156880 
3A 156890 
3A156900 
3A156910 
3 Al 5*920 
3A 1*6930 
3A156940 
3A156950 
3A1 56960 
3A 156970 
3A1 56980 
3A 156990 
3A 157000 
3A157010 
3A1 57020 
3A 15 7030 
3A1 57040 
3A 15 7050 
3 A 157060 
3A 15 7070 
3A1 57080 
3A 15 7090 
3A 157 100 
3A157110 
3A157120 
3A157130 



26AUG68 
420403A 
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i 
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I 
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4 
« 
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i 
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DATE 
EC NO. 











• 










3A157140 












»»•»*»**»»*»»•*»*»••»»«*»»»»»»»»»»»**»»*»»** 


3A157150 












• 










3A157160 












* 






LOCK 


ON ERROR RT 


3A157170 












• 










3A157180 




•>*••••*••••«.«•••*•**•***•*»***••••••**********••*****•***••***,•**•** 


3A157190 




CORE 




DAT*' 


Oft 


*LA- 


OPER- 








3A157200 




AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS C 


REMARKS IDtSEQ* AT RIGHT 


3A157210 




*•••••**•**•**•••••••••«•••**•»*••••*••*••*•*••**••**•******••«••••*••• 


3A157220 




"F98 





0000 




FOOE 


DC 







CONTAINS RETURN ADDRESS 


3A157230 




OF 99 





281A 






STS 




FOOH 


SAVE REGS C AND OF 


3A157240 




0F9A 





0038 






STO 




UOOX 


ACCUMULATOR 


3A157250 




0F9B 





1B00 






RTE 




16 




3A1 57260 




0F9C 





00 3A 






STO 




UOOX £ I 


ACC EXTENT10N 


3A157270 
3A1572B0 












**»**»»»•»*»•»»»»»»*»»»»»»»»»»»»»*»«*»*»♦»»»»»»»*» 


3A157290 












• SET UP 


FOR RESTART 


* 


3A157300 , 




















• 


3A1S7310 












* TO RESTART — PRESS 


STOPt RESET AND START. • 


3A157320 




















• 


3A157330 




0F9D 





C03A 






ID 




RST1 


LO /6004 

• 


3A157340 ' 
3A 15 7350 




0F9E 





0400 


0000 




STO 


L 


/OOOO 


STO IN WORD ZERO 

• 


3A157360 
3A 15 7370 




OFAO 





C03S 






ID 




RST2 


LO /4C00 

* 


3 Al 57380 
3A 15 7390 




0FA1 





0400 


0004 




STO 


L 


/0004 


STO IN MORO FOUR 

* 


3A157400 
3A157410 




0FA3 





C036 






ID 




RST2fcl 


LO /012C 

* 


3A157420 
3A157430 




OF A* 





0400 


0005 




STO 


L 


/0005 


STO IN WORD FIVE 

• 


3A157440 
3A157450 












•ft*********************************************** 


3A157460 
3A157M0 




0FA6 





082B 






XIO 




F003 


REAO SNITCHES 




0FA7 





C020 






LD 




ZOOO 


CK LOOP ON INST BEING 


3A1 57/480 




OF AS 





1807 






SRA 




7 


* TESTED SH 


3A157490 




0FA9 





4804 






BSC 




E 


SKIP IF EVEN 


3A1 57500 




OFAA 





700A 






NDX 




F008 


EXIT TO LOOP INST 


3A157510 




OFAB 





COEB 






LO 




UOOB 


CK IF ERROR HAS 


3A157520 




OF AC 





4820 






BSC 




Z 


• OCCURRED 


3A 157530 




OFAD 





7009 






NDX 




F009 




3 Al 57540 




OFAE 





C0E9 




FOOK 


LO 




FOOE 


GOT RETURN ADOR 


3A157550 




OFAF 





8024 






A 




U006 


ADO ONE 


3A157560 




OFBO 





D0E7 






STO 




FOOE 


STORE RETURN ADDRESS 


3A157570 




0FB1 





C025 






LD 




U00XC1 


RESTORE REGS 


3A157580 




0FB2 





1800 






RTE 




16 




3A157590 




0FB3 





C022 






LD 




UOOX 




3A157600 




0FB4 





2000 




FOOH 


LDS 







SET C ANO OF OFF 


3A1S7610 




0FB5 





4CB0 


0F98 


F008 


BSC 


I 


FOOE 


BR TO RETURN AOORESS 


3A157620 




0FB7 





C01D 




F009 


LD 




2000 


CHECK LOCK ON ERROR SH 


3A 157630 




0FB8 





1803 






SRA 




3 


SHIFT BIT 12 TO POS 15 


3A157640 




0FB9 





4804 






BSC 




E 


SKIP IF OFF 


3A157650 




OFBA 





7003 






NDX 




FOOC 


ERROR SN SB 12o ON 


3A157660 




OFBB 





1810 






SRA 




16 


RESET ERROR OCCURRED 


3A 15 7670 




OFBC 





OOOA 






STO 




UOOB 


• CONTROL 


3A1576B0 




OFBD 





70FO 






NDX 




FOOK 


BR TO GET RETURN ADDRESS 


3 A 157690 




OFBE 





C0D9 




FOOC 


LD 




FOOE 


GOT AOOR 


3A157700 




OFBF 





80 06 






A 




UOOA 


ADO MINUS THREE 


3A157710 




OFCO 





F006 




• 


EOR 




UOOB 


COMPARE TO ERR CONTR 
• AODR 


3A157720 
3A157730 




0FC1 





4820 






BSC 




Z 


SKIP ON ZERO 


3A157740 




0FC2 





70 EB 






NDX 




FOOK 


BR TO GET RETURN ADDRESS 


3A157750 




0FC3 





70F1 




• 


NDX 




F008 


EXIT 


3A157760 
3A157770 












»»»»•»»»***•»♦»»»»»»*»»*»»»»»»*»»»»»*»»»•»»»* 


3A157780 












• 








CK LOOP RT SU RT 


3A157790 












* 










3A157800 




•»»**•****»»»*»»»»*»»♦»»*»»«»»»•**•»»»*»*»»»»«•»»»»••»»»»»»»»»»»»*»»«*» 


3A157810 




02JAN66 01HAV66 


15N0V66 


15FEB68 26AU668 
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415490 415490C 


419643 


420403 420403A 
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c 
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o 

o 
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o 



o 
o 
o 






ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
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CORE 




DAT£ 


Oft 


*LA- 


OPER- 






AODR 




INSTRUCTION 


*BEL 


ATION 


Fl 


OPERANDS t 


»»«.t»**.«..-.»att»»t«i»* a •*• $•••«*«*# «««*•«••*• 


0FC4 





0000 




F005 


DC 







0FC5 





080C 




* 


XIO 




F003 


0FC6 





COOE 




LD 




2000 


0FC7 





1805 






SRA 




5 


0FC8 





4804 






BSC 




E 


0FC9 





7003 






NDX 




FOOG 


OFCA 





C0F9 






LD 




F005 


OFCB 





DOCC 






STO 




FOOE 


OFCC 





70CC 






NDX 




FOOEtl 


OFCO 





4C80 


0FC4 


Fooe 

• 

uooo 


BSC 


I 


F005 


OFCF 





0000 




DC 




/OOOO 


OFDO 





0000 




U001 


DC 




/OOOO 


0F02 




0000 






BSS 


E 




0FD2 





0FD5 




F003 


DC 




ZOOO 


0F03 





0240 




F004 


DC 




/0240 


0FD4 





0001 




U006 


DC 




/0001 


0F05 





0000 




ZOOO 


DC 




/OOOO 


0FD6 




0002 




UOOX 


BSS 




2 


0F08 





6004 




RST1 


LOX 




/0004 


0FD9 





4C00 


012E 


RST2 


BSC 


L 


A080 


OFDC 




012D 






END 




XOOO 


NO STATEMENTS FLAGGED IN 


THE 


ABOVE ASSEMBLY 



REMARKS IDCSEO* AT RIGHT 

MILL CONTAIN RETURN AODR 
READ SMS - PLACE IN LABEL 

• ADDRESS ZOOO 

CK LOOP ROUTINE SH 

CHECK FOR BIT 11 

NO SKIP FOR LOOP 

LOOP ROUTINE SMITCH ON 

LD RETURN AODRESS 

SAVE FOR LOCK ON ERROR STN 

8R TO SAVE REGISTERS 

BR TO MAIN PROGRAM 

* RETURN ADDRESS 
A REG SAVED HERE 
REG SAVED HERE- 



EOUAL /3A00 IN 1130 

SM READING STORED HERE 
SAVED FOR ACQ STORAGE 
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3A157820 
3A157830 
3A1 57840 
3A157850 
3A1 57860 
3A157870 
3A157B80 
3A 15 7890 
3A1 57900 
3A157910 
3A157920 
3A15 7930 
3A157140 
3A15 7?50 
3A137960 
3A15 7970 
3A1571BC 
3A 15 7990 
3A1 54000 

iAisaoio 

3A1 58020 
3A 15 8330 

3415*5040 
3A158050 
3A1 58060 
3 A 158070 



DATE 
EC NO. 



02JAN66 
415490 



01HAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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C * 

NAME 
AOCO 
A080 
A1C0 
A100 
A1E0 
A1F0 
A100 
A140 



AIM 01A0 



A2CC 
A2C0 
A2C4 
A2C8 
A200 

A240 
A280 
A2B1 
A2B2 
A283 
A2B4 
A3C0 
A3C4 
A300 
A302 
A30< 
A340 
A38C 
A3S0 
A304 
A388 
A4CC 
A4C0 
A4C2 
A4C8 
A400 
A408 
A44A 
A440 



A480 
A482 
A SCO 
A5C4 
A5C6 
A 50 A 
A50C 
A50E 
A500 
A 502 
A504 
A508 
A54A 
A54C 
A54E 
A54F 
A540 
A544 
A546 
A548 
A580 
A584 
A588 
A6C0 



SS REFERENCE 
VALUE REFERENCES 
013F 013A,300F, 3010,3011,3012 
012E 0F09, 3004,3005. 3006,3007, 3008,3009. 3O0A,30OB.300C,3OO0,30OE 

01EB 01E9.303D.303E 

01F5 01F2.303F, 3040, 3041, 3042. 3043,3844, 3045 

0214 0210,3040,3047 

0220 0210,3040,3040 

0154 0F63l301*'3017,30l8.3Ol».301A,3018,301C»3OlD.30iE,3OiF, 3020*3021 
3022, 3023, 3024, 3025, 3026,3027, 3028. 3029. 302E 

019E.302A, 3028, 302C.302D.302F, 3030, 3031,3032, 3033, 3034, 3035, 303* 
3037, 3038,3039, 303A.303B.303C 
0340,3072 
0311,0321,30** 
0321,3070 

02 29*304A,304B,304C,3040,3O4E,304F, 3050, 3051, 3052,3053, 3054, 3055 

3054, 3057, 3058, 3059, 3O5A,3O5B,305C,3O5D,3O5E,3O5F 

02 68 , 30*0, 30* 1 , 30*2 , 30*3 , 30*4 

028B,02C6,02E1,30*A 

02EC,3O*B 

02F7,30*C 

0302*30*0 

0310, 3**E 

0305. 03E 8, 03F2. 3080, 3081 

0400.0409.3082,3083 

0341,0340,3073 

0358,3074 

03*3,3075 

0364,0372. 037C.307*. 3077 

03CA.0304.307E.307F 

0370.03BA.0394. 3078*3079 

039E,03A7,307A,3070 

0381, 0388. 307C.30T0 

0584, 0580. 30A8.30A9 

0558,0564,30*1 

056B,056E,057C,0585,058F,30A2.30A3.3OA4,3OA5 

059D,05A6,30A6,30A7 

04 0A.041F. 0427. 0432*3084*3005* 300* 

0441.0449.0452,3087.3088*3089 

0505.050E. 0518, 3099. 309A.309B 

04B5.04C8, 0400.0409.3093. 3094.3095 

04E 6, 04E F , 04FS . 309*. 3097 . 309 8 

0538. 0540. 309F 

0S5A.30A0 

0747.0750.30CE.30CF 

07 5F , 07*9 , 3000 , 3001 

0779,0783,3002,3003 

0607, 060E . 30AF . 3080,3170 

0618, 0625, 0*2C, 3081, 3082 

0626, 0639,0640,3083*30*4 

05BE.05CE.30AA 

0509,30*8 

05ES,0SF0,3QAC,30AD 

05FB.3OAE 

06B3.06C4.06CC.30C0.30C1 

06C5,06D6,06DE,30C2,30C3 

0607.06E8.06F0.30C4.30C5 

06E9.06FB.0703.30C6.30C7 

0650,0657,0668.0672.0*80.3087,3088.3089 

066C.068C.0693.30BA.30BB 

0680. 0694.06A1.06A8.308C. 3080 

06A2.06B2.06BA.30BE.30BF 

06FC.0700.0716.30CS.30C9 

0720.072A.30CA.30C8 

0733.073C.30CC.30CO 

0944.094B.0964.096S.30F0.30F1 





o 
o 
e 
o 






■j'C^r 



0336 
0318 
0322 

032C 
0220 

0270 

0208 

02E2 

02E0 

02F8 

0303 

03DC 

03F3 

0344 

034E 

0359 

0367 

03BC 

0380 

0395 

03A8 

05 A 7 

055F 

0568 

059O 

0412 

0433 

04F9 

04B0 

04DA 

0542 

054 E 

0730 

0751 

076A 

05FC 

0619 

062 D 

05C4 

05CF 

05DA 

05F1 

06BB 

06CD 

06DF 

06F1 

0660 

0681 

0696 

06A9 

0704 

0717 

072B 

0954 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



2*AUG*8 
420403A 



FROG ID 
FACE 



03*1-1 
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A*C2 096C 0965, 097C. 0983, 30F2.30F3 

A6C4 0984 0970.0993, 099A.30F4.30F5 

A6C6 0998 0994, 09AB. 0982. 30F*,30F7 

A6CB 0983 09AC,09C3,09CA,09D8,30FS,30F9 

A6D0 090C 09C4,09CB,09E7,3150 

A602 09EB 09F3.31SE 

A603 09F4 09FF,315F 

A*05 OAOO 0A0B,31*3 

A*0* OAOC 0*17,31*4 

A6F0 0A1B 0*26.31*9 

A*F1 0A29 0A27.0A37.3166 

A60A 07C7 0703,3009 

A60C 0704 07EO.3OOA 

A*OE 07E1 07E0»3O08 

A600 078F 0787*0797*3004 

A602 0798 07 AO* 3005 

A604 07A1 07AC300* 

A606 07A0 0789,3007 

A608 078A 07C6.3008 

A64A 085C 08*9, 30E3 

A64C 0S6A 0877,30E4 

A*40 0810 080A,081C, 0*26, 30DE, 31*7 

A642 0827 0S33*30OF 

A*44 0834 0840, 30E0 

A*46 0841 0840, 30E1 

A64B 084E 0858* 30E2 

A660 0B7F 087A,088C, 0896,3157, 3158 

A**2 0897 0SA4,08AE, 3159, 31SA 

A664 08AF 08BC,eaC*,315B,315C 

A670 08C9 09C7, 0802,0809, 31*9 

A*SC 0918 0922,0928, 30EB,30EC 

A*80 080C 0803,08E7,08F0,3OES,3OE* 

A684 08F1 08FB,0903,30E7,30E8 

A688 0904 090E,0917,30E9,30E* 

A7CC 0C28 0C31.0C3A, 3125, 312* 

A7C0 OBEC 0BE0,0BF*,0COO,311F*312O 

A7C4 0C01 0COA,0C14,3121,3122 

A7C8 0C15 OC IE, OC27, 3123, 3124 

A70C 0A7D 0AS9.0A97.0A9E, 3100, 3101*3102 

A700 0A38 0A44,0A4E,30FA,30F8 

A704 0A4F 0A5B,0A43,30FC,3OF0 

A708 0A66 OA72,0A7C,3OFE,30FF 

A74C 0B03 O80F,0B19,0B25,0B2C,31OB,31OC,3100.310E 

A740 0AA8 0A98,0A9F,0A88,0AC3,0ACF,0A06.3103. 3104. 3105*310* 

A74* 0A07 OAE5,OAEE,0AFB,OBO2,31O7, 3108, 3109,310* 

A78A 0BB8 0BC1,0BCB,311B,311C 

A78E OBCC OB05.0BDF,3110,311E . . .. 

A7S0 0B79 0B6C,0B85,0B8F,0B98,0BA2, 3115,311*, 3117,3118 

A78* 08*3 0BAD,0BB7,3119,311* 

A80C 0C9A 0C93.0CA4.312F 

A80E 0CA9 0CB3,313O 

A800 0C43 OC3B,OC53,0C5E,OC69,OC70, 3127, 3128, 3129,312* 

A806 0C71 0C6A,OC70,0C87,0C92,OC99*3128*312C*312O*312E 

A84A 0OB2 0088,3171 

A840 005* 0020,00*3,3135 

A842 0064 0078,3136,31*F 

A844 0079 0087,3137 

A84* 0088 0091,3138 

A848 0092 0098,313* 

A849 0D9C 0061,313**31*0 

A85A ODBC 00C4.3172 

AS8A 0E4B OE 58,3173 

A88C 0E59 OE**.OE*0,OE77,31*l, 3142,3143 

A860 OOCF 0DC5,O00E, ODES, OOEE, OOFS, 3138, 313C, 31*0 

A8S4 ODF* OOEF,OE06.0E14.0E10.3130,313E,31*1 

A888 0E1E OE2C0E3A.313F.314O 

A889 0E3B 0E4A.3162 

A900 3282 3065, 3066,3067, 3048,3049 
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640A 


0490 


B400 


0453 


B406 


0471 


IWO 


0519 


B500 


0641 


B600 


07EE 


B602 


07FC 


B680 


092C 


B742 


0820 


6747 


0B57 


B8A0 


0ED6 


B8AI 


0EF1 


BBA2 


OEFB 


B8A3 


0F05 


68A4 


OFOF 


B8AS 


0F19 


B8C0 


0F24 


BBC I 


0F3E 


6BC2 


0F46 


B800 


0CB4 


B802 


OCBF 


BB04 


OCCA 


•806 


0CD5 


BB07 


0004 


6808 


ODOF 


B809 


001* 


B810 


0026 


B882 


0E78 


B884 


0E9A 


6885 


OEBA 


FOOA 


0FB5 


FOOB 


0FB3 


FOOC 


0F6E 


FOOE 


0F98 



FOOF 


OFBB 


FOOC 


OFCO 


FOOH 


0FB4 


FOOK 


OFAE 


FOOL 


0F7A 


FOOX 


0F81 


FOOO 


0F69 



04A3, 04 AB,04B4, 3090, 3091, 3092 

045E, 0467, 0470, 308A,308B,306C 

047D,0486,048F,308D,308E,308F 

0529, 0531, 053A,309C,309D,309E 

63A • 064F .0656, 30B 5 . 30B6 

07FB.300C 

0809.3000 

0937. 0943. O94A,30E0,3OEE,30EF 

0B39,0B43,0B4F, 0656, 310F, 3110,3111, 3112 

0B61.0B6B. 3113. 3114 

OEC6.0EE7.0EF0.314B.314C 

OEE9.0EFA.3140 

0FO4.314E 

0F0E.314F 

0F18.3150 

0F23.3151 

0F2C0F34.0F30, 3152. 3153,3154 
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EC NO. 
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J54* 


06A6 


0699 






J MO 


0TF9 


07F4 






J602 


0807 


0S02 






JMO 


0935 


0930 






J682 


0948 


093A 






J TOE 


0A99 


0*90 






J74A 


0869 


0B64 






J 7*0 


0B2A 


08 1C, 0826 






JT42 


0B37 


0832 






J744 


0B41 


0B3C 






J746 


0B54 


0846*0850 






J74B 


0B5F 


0B5A 






J8AA 


OF IE 


OFlOtOFIC 






J8A0 


OEES 


OEEO 






JBA1 


0EF8 


0EF4 






JSA2 


OEFS 


OEFS 






J8A3 


0F02 


OEFE 






J8A4 


OEFF 


OEFO 






J8AS 


OFOC 


OFOB 






J8A6 


0F09 


0F07 






J8A7 


OF I* 


0F12 






J8A8 


0F13 


0F11 






J8A9 


0F21 


0F10 






J8C0 


0F2A 


0F20 






J8C1 


0F32 


0F2E 






JSC2 


0F3B 


0F37 






J8C3 


0F42 


OF40 






J8C4 


0F44 


0F41 






J8C5 


0F4B 


0F48.0F49 






J8C6 


0F4D 


0F4A 






J800 


OCBC 


0CB7 






J802 


0CC7 


0CC2 






JS04 


0C02 


OCCD 






J806 


OCOD 


0C08 






J808 


OOOC 


0007 






J 809 


0017 


0012 






J810 


0023 


001F 






J811 


0030 


003F,0048t004F 






JB12 


0030 


0030 






JS13 


004* 


0041 






JO 14 


0D27 


0052 






J815 


0020 


0010 






J816 


0049 


0D4C 






J88A 


OECO 


OEBE 






J888 


0EC3 


OEBF 






J880 


0E75 


0E70 






J882 


0E82 


0E70 






J 884 


0E8B 


OEO* 






J886 


0E97 


0E92 






J887 


0EA2 


0E9E 






J888 


OEAB 


0EA6 






J 88* 


0EB7 


0EB2 






K50B 


0616 


0612 






K50C 


062 A 


061F 






K640 


0814 


0B7C 






K682 


0945 


093C 






K740 


0027 


0B1E 






K746 


0B51 


0B48 






K849 


0DA8 


ODAS 






NICO 


01F3 


01EB 






N1C1 


01F4 


01EE 






N1DQ 


0211 


01FB,01FC,01FF,0207 






NIDI 


0212 


01F5t01FSt0208 






N102 


0213 


0204,0200 






N1E0 


021E 


021S,021A,021E 






N1E1 


021F 


0214 






N1F0 


02 2A 


022C 






K1F1 


0228 


0224,0226,0220 




DATE 


02JAN66 01MAY66 15N0V66 15FEB68 


26AU66B 


EC NO. 


415490 415490C 419643 420403 


420403A 






UOl. V 

• 


a 
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• 


© 


• 


© 


9 


9 
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• 
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* 
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• 
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• 
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N1F2 


022C 


0226 




N100 


0143 


014C014F 




N140 


019F 


0154 




SO 180 


OlEfi 


QIA0«01A4 




«co 


8342 


0318,0319,0322,0320 




W2C2 


3343 


0323, 032C,033*,0337, 0338 




N200 


026C 


0231,0250 




N201 


83>4>B 


0258 




N202 


026E 


0262 




N203 


026F 


0267 




N2*0 


0271 


0271,0275 




N241 


0273 


0270,0274 




N242 


027C 


027F 




N243 


S27D 


0278, 027£ 




N280 


0312 


0200 




N281 


0313 


0262,0303 




N282 


0314 


02E4.0300 




N283 


0315 


02E0 




N2B4 


0316 


02EF.02FS 




N285 


0317 


02FA 




N3C0 


040B 


030E 




N3C1 


040C 


030C 




N3C2 


0400 


03F3 




N3C3 


040E 


03F3 




N3C4 


040F 


03E0 




N3C5 


0410 


03EA 




N3C6 


0411 


03F0 




N300 


0365 


0344, 0345, 034E 




N30Z 


0366 


034F, 0350,0359, 035 A, 0358 




N340 


037E 


03*7 




N341 


037F 


0369,0374 




N380 


0306 


0380 




N3B1 


0307 


0382, 038C 




N382 


0308 


0395 




N383 


03D9 


03AB.03BC 




N3B4 


03DA 


0303 




N385 


0300 


03CC 




N4C0 


05BF 


0561, 0562, 0560,0586, 0592, 0594,05A9, 




N4C1 


05C0 


0587 




N4C2 


05C1 


0593, 059E.05AA.05B5 




N4C3 


05C2 


0545 




N4C4 


05C3 


05 AC 




N400 


0486 


0412,0415,0429 




N401 


04B7 


0492 




N402 


0488 


0473 




N403 


0489 


0455, 047E 




N404 


04BA 


045F 




N405 


048 B 


0433,0453,0471,04*0 




N406 


04BC 


0436 




N440 


053C 


0480,0519 




N441 


0530 


04BF,040C,Q4F0,0510 




N442 


053 E 


040A.04E7 




N443 


053F 


04F9 




N444 


0540 


050* 




N445 


0541 


0510 




N480 


055C 


0542,0550 




N481 


0550 


544, 054E, 0552 




N482 


055E 


0543, 0545, 054F, 0551 




N5C1 


0788 


070 v, 0728,0730, 0751, 07*E, 0770 




N5C3 


078A 


07 17, 0754,0757, 0761, 076A, 0770,0704 




N5C4 


078B 


0718,0722 




N5C5 


078 C 


073E,073F, 0752, 0755, 0756, 0760 




N5C6 


0780 


0748, 0753, 0760, 076C076F, 0771, 0785 




N5C7 


078 E 


0760, 077A, 0786 




N500 


0658 


05C5,05FD,060F,062F,06*1,06A9 




N501 


0659 


0500,0696 




N502 


065A 


05DB 




N503 


065 B 


05F2.0642 


DATE 


02JAN66 01NAY66 15N0V66 15FE868 26AUG6B 


EC NO. 


415490 415490C 419643 420403 420403A 
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N504 
N505 
N506 

N507 
N542 
N6CA 
N6CB 
N6C0 
N6CF 
N6C0 
N6C1 
N6C2 
N6C3 
N&C4 
N6C5 
N6C6 
N6C7 
N6C8 
N6C9 
N6F0 
N6F1 
N6F2 
N6F3 
N600 
N601 
N602 
N603 
M604 
N640 

N642 
N643 
N644 
N660 
N670 
N680 
N681 
N682 
N683 
N684 
N686 
N687 
N688 
N7C0 
N7C1 
N7C2 
N7C3 
N7C4 
N7C5 
N7C6 
N700 
N701 
N702 
N703 
N704 
N705 
N706 
N707 
N74A 
N74B 
N74C 
N740 
N742 
K744 
N746 
N747 
N748 
N78A 



065C 
0650 
065E 
05E6 
065F 
0906 
0907 
0908 
090A 
09CC 
09CD 
09CE 
09CF 
0900 
0901 
0902 
0903 
0904 
0905 
0A1D 
OA28 
0A2D 
0A31 
0*08 
080C 
0800 
080E 
080F 
08 7B 

087C 
0870 
0S7E 
08C8 
OSOB 
094C 
0940 
094E 
094F 
0950 
0951 
0952 
0953 
0C3C 
OC30 
0C3E 
0C3F 
0C*0 
0C41 
0C42 
OAAO 
0AA1 
0AA2 
0AA3 
0AA4 
0AA5 
0AA6 
0AA7 
0674 
0B75 
0B76 
0B6D 
0B6E 
0B70 
0872 
0873 
0878 
OBEA 



061A 

0645t 0644*0675*0076 

064T 

050C 

0677, 0681, 06BS*06CD 

095C 

0974,0403*0*00 

O9A3.0AOUOA0F 

09B4,09BB 

0957,09CC,090F 

09CD , 09DC 1 09E 8.09F4, 09F7 

09CE.09EB 

09CF 

0955, 0960*0985,0987, 099C, 0986,0900,0909 

099E.09D1 

0902 

0903 

09 6F, 0904 

095A,095B, 0972*0973, 09BA,098B,09A1, 09 A2,09B9,09BA 

0A1A 

0A19.0A1E.OA20 

0A2A 

0A2E 

07CB, 0708, 07E5, 0801, OSOB 

07A2,07A4,07AF,07B1*07BC,07BE,07C9,07D6,07E3,07F1,07FF*080C 

07F3.OB00 

07AE,07BB,07CB,0705,07E2*07FO*07FC 

07FE 

0811, 0813, 0810, 0828, 082A.082B, 0835, 0837,0838, 0842, 0844, 0845, 0B4F 

0851, 0852, 0850, 08 5F, 0860, 0868, 0860, 0B6E, 0879 

081E 

084E,085C,086A,0878 

0810, 0827, 0834, 0841, 0853, 0861.086F 

0883, 0884,088D,08 BE, 0898, 089C,08A5,08A6,08B3,OBB4,08BD,08BE 

08CA 

0800, OSES, 08F2, 0905*0906 

080F 

08F3 

0919,091A 

0923,0920, 092E 

0939 

090F 

092F,093B 

OBEC 

OBED 

OBEE 

06F8 

0C01,0CQ2.0C14*0C2S 

OCOC 

0C15,0C29,OC5F 

OA39.OA50.OA7E 

OA3A,0A53,0A68,OA74,OA8F 

0A3B,0A45,0A52,OA5C,0A69,0A73,OA8O,OA8A,MSE 
0A3C,0A51 

0A46,0A50,0AF1 

0A67,OA7F,OA81 

OASB 

0A6A 

0011 

0838 

0B2E - 

0AA0,0AC4,0AOC,OAEF,0B06,O81A*OB3O,OB44 

OAA9,OAAF,OABA,OADA,OB04, 0605,0807, 0B2F,0B31 

OAAB 

0A08,0B57 

0858,0859 

0B1B, 0845*0863 

0BB8 



O 
O 

c 



OATE 02JAN66 01MAY66 15N0V66 15FEB6B 
EC NO. 415490 415490C 419643 420403 



26AUG6S 
420403A 
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% 



N78D 


0BE9 


08C3 






N780 


0BE1 


087C0B90 






N782 


0BE2 


0B7A,0SA4,O8CC 






N784 


0BE4 


0878 






N785 


08E5 


OB AF, 0607 






N786 


0BE6 


0670,0B67,0BA5,0B89 






N787 


0BE7 


08C0 






N78S 


0BE8 


0891 






N8A0 


OF 55 


0EOF,0EFl,0EF8,OFO5,0F10 






N8A1 


0F50 


0EF2,0F19,0F1A 






N8A2 


0F51 


0EDE,0EE8,OFO4 






N8A3 


0F52 


OEFC 






NSC I 


0F66 


0F5C 






N8C2 


0F67 


0298. 02 A7 






NBC 3 


0F6S 


0F5D,0F66 






NBC 5 


0F54 


0F0F*0F25 






N8C6 


OF 56 


0F24,0F2O,OF34 






N8C7 


0F58 


0F3E,OF46,OF47 






N8C8 


0F5A 


0F3F 






N80A 


OCEA 


0CB5 






N80C 


OCEC 


OCCO 






N80E 


OCEE 


0C9C0CC8 






N8PF 


OCEF 


0011 






NSOO 


0CE1 


0C4S,0C74,CC8S 






N802 


0CE2 


0C44 






N804 


0CE4 


0C71 






N806 


0CE6 


0C98 






NB07 


0CE7 


0CA6,0CA8,0CCC*OC07,OO4A 






N80S 


0CE8 


0CAA.0C86 






NS10 


OCFO 


0CD6 






N811 


8CF1 


0C55 






N812 


0CF2 


0C44,0C4A*SCC1 






NB13 


0CF3 


0C72,0C75 




/ 


N816 


0CF4 


0C7F 


1 


f 


N817 


0CF5 


0004 






NBIS 


0CF4 


0005 


1 




N819 


0CF8 


0010,002E,004E 






N820 


OCFA 


001C 






N821 


0CF6 


002F, 0030,0031, 0035, 0036, 0049, 0048 


f 




M823 


0000 


0018 






N824 


0002 


0033 


! 




N84A 


00C6 


0082 






N840 


0OC7 


0D59,0DSA,0O7O,0O7E,0OAl,0DAS 






NS41 


OOCS 


005B,007F,OOA9 






N842 


00C9 


0045,0060,8075 






N843 


ooce 


0074 






N844 


OOCC 


ODBC, OOCO 






N645 


ooco 


0064, 0067, 009F 






NS46 


OOCE 


006E 






N88A 


OEOO 


0E7A,0E9A,0E88 






NS8B 


0E01 


0E41 






NS8C 


0E02 


0E59 






NS80 


0E03 


0E78 






N8BE 


0E04 


0E08,0C90 






N88F 


0E05 


0E51 






N880 


0EC7 


00D4,O00F*OEO7,0EO9,OE20,0E2F,0E6E,OE6F,OESE,0ESF,OEAE*OE8O 






N882 


0EC8 


0D00,0E4E 






N884 


OECA 


00FS,OE3E*OE81 






N885 


OECB 


0E1E.0E31 






N886 


OECC 


00FD*0E20«0E23*0E7C.0EAS 






NB87 


OECO 


00F6 






N888 


OECE 


0E5B 






RST1 


OFDS 


OF90 






RST2 


0FD9 


0FA0.0FA3 






S501 


0651 


0644 






S503 


0654 


0648 






UOOA 


0F96 


OFBF 






UOOB 


0F97 


0F77*0F86*0FA8*0F8C*0FC0 
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ooox 


0FD6 


OF9A.OF9C»OFB1 


,0FS3 


0000 


OFCF 


0F6B.0F80 




0001 


OFOO 


0F*0i0F7E 




U003 


0F95 


0F87 




UOO* 


OFD* 


0F78.0FAF 




V1AC 


027 A 


027C 




V15* 


02*1 


023E 




V168 


02* E 


02*8 




V170 


0253 


02S0 




¥17* 


0257 


025* 




VIBO 


0261 


025E 




V1B* 


02** 


02*3 




M8C0 


OFSC 


OE0CtOF*F 




wac* 


0F63 


0F*0 




xooo 


0120 


0F0C.30OO 




xooi 


028* 


02 AF, 3001 




X003 


02C5 


020,3002 




X007 


0F62 


3003 




ZOOO 


0FD5 


0029.0F&F.0F7A, 


0F91,0FA7,0FB7,0FC*,0FD2 


Z020 


0F*S 


0F*1 
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1. PURPOSE 

THE 1130 BASIC DIAGNOSTIC LOAOEP IS A SELF-CHECKING PROGRAM DESIGNED 
TO LOAO AND VERIFY LOAOING OF DIAGNOSTIC-CARD OR PAPER TAPE 
PROGRAMS PUNCHED IN B-S FORMAT. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE BASIC LOADER WILL ONLY LOAO PROGRAM DECKS WHICH ARE PUNCHED 
IN THE 8-B FORMAT DESCRIBED IN SECTION 6.1. 

2.2 EQUIPMENT PREREQUISITES 

» 

». 1131 CENTRAL PROCESSING UNIT ICPU1. 

B. 1442 CARD READ/PUNCH, OR. PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 NORMAL LOADING PROCEDURE 

A. AT 1442 CARD RE AD /PUNCH, 

1. DEPRESS NPRO PUSHBUTTON TO CLEAR FEEO. 

2. PLACE BASIC LOADER DECK, FOLLOWED BY MAIN PROGRAM AND TWO 
BLANK CARDS IN HOPPER. 

3. DEPRESS START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

B. AT PAPER TAPE READER 

1. SET TAPE IN READER 

2. MAKE REAOER READY 

C. AT 1131 CPU, 

1. PUSH RESET. 

2. PUSH PROGRAM LOAD. MAIN PROGRAM SHOULD LOAD AND BEGIN 
EXECUTION. 

3. IF PROGRAM FAILS TO LOAD PR HALTS AT A WAIT INSTRUCTION BELOW 
LOCATION 012C, REFER TO SECTION 3.2 

3.2 DIAGNOSTIC LOADING PROCEDURE 

1. SET INTERRUPT DELAY SNITCH (ON CE PANEL) TO ON POSITION. 

2. PETRV LOADING PROCEDURE. 

IF PROGRAM LOADS, RUN CPU AND INTERRUPT TESTS TO DIAGNOSE NORMAL 
LOADER FAILURE. 

IF PROGRAM DOES NOT LOAO, REFER TO SECTION 3.3 

3.3 01 AGNOSTIC GUIDE 

NOTE 

ALL REGISTER-CONTENT INDICATIONS IN FOLLOWING STEPS ARE EXPRESSED IN 
HFXAOECIMAL NOTATION. ALL ADORSESSES APPLY TO BOTH PAPER TAPE 
AND CARD VERSIONS OF THE PROGRAM. 



FAILURE DESCRIPTION SUGGESTED ACTION » POSSIBLE CAUSE OF FAILURE 



1. NO CARD FEEDS 



REFER TO PROGRAM LOAO TESTS. POSSIBLE FAILURE OF 
EITHER PROGRAM-LOAD MODE OR REAOER. 
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BASIC DIAGNOSTIC LOADER 



2. 



REFER TO PROGRAM LOAD TESTS. 
POSSIBLE FAILURE OF READER. 



FIRST CAPO 
FEEDS BUT IS NOT 
HEAD CORRECTLY. 

FIRST CARD IS 
READ CORRECTLY 
BUT NOT ABLE TO 
LOAD REMAINDER 
OF LOADER. 

MAIN PROGRAM CHECK THAT LAST CARD OF PROGRAM, MHICH IS 

STARTS EXECUTING PUNCHED WITH FF IN COLUMNS 79 ANO 80, 
BEFORE ALL CARDS IS NOT OUT OF SEQUENCE. IF CARD IS IN SEQUENCE, 
HAVE BEEN LOADED. A READING PROBLEM IS INDICATED. 



REFER TO ONE-CARD PROGRAMS. 
POSSIBLE FAILURE OF CPU INSTRUCTIONS 
USED TO BOOTSTRAP LOADER. 



5. 



ALL CAR OS FEED 
BUT MAIN PROGRAM 
DID NOT EXECUTE. 



SEE IF LAST CARD WENT PAST THE READ STATION 
OF THE 1442. IF IT 010, RUN ONE-CARD 
DIAGNOSTIC PROGRAMS. CHECK THAT MAIN PROGRAM 
IS FOLLOWED BY TWO BLANK CAROS. 



3.4 ERROR WAITS 

SBR LOCATION 
| 30F1 001E 



| 30F? 
| 30F3 



1 



30F4 



30F5 



j 30F6 



J 30F7 



002F 



004F 



0095 



00A5 



OOBT 



OOOE 



MEANING 

PROGRAM STOPPED BECAUSE CHECKSUM FOR FIRST CARD HAS 
NOT CORRECT (0000). CHECK THAT LOCATIONS 0000 TO 
0Q1E WERE REAO CORRECTLY BY COMPARING WITH LISTING. 
IF NOT LOADEO CORRECTLY, REFER TO PROGRAM LOAD 
TFSTS. IF LOCATIONS WERE LOADED CORRECTLY, RUN 
ONE-CARD PROGRAMS TO HELP ISOLATE PROBLEM. 

PROGRAM STOPPED BECAUSE OF DSW ERROR. THE ONLY 
VALID WORDS ARE 8003, 0003, AND 0800. DETERMINE 
CAUSE OF OSW ERROR ANO CORRECT. RELOAD AFTER 
REPAIRING. 

PROGRAM STOPPED BECAUSE FIRST WORD OF CARD 2 FAILED 
TO BE LOAOEO IN LOCATION 004F ANO THEREFORE, DID 
NOT REPLACF THE WAIT INSTRUCTION AT THAT LOCATION. 
EXAMINE CARD 2 ANO TRY RELOADING. IF NO 
IMPROVEMENT, RUN ONE-CARD DIAGNOSTIC PROGRAMS. 

PROGRAM STOPPED BECAUSE OF DSW ERROR. THE ONLY 
VALID WORDS ARE 8003, 0003, AND 0800. DETERMINE 
CAUSE OF OSW ERROR AND CORRECT. RELOAD AFTER 
REPAIR. 

WHILE LOADING THE MAIN PROGRAM, PROGRAM FOUND THAT 
WORO COUNT IN LOCATION 0034 EQUALED ZERO. PROBLEM 
MAY BE CAUSED BY A BLANK CARD IN DECK, OR READING 
FAILURE. 

CHECKSUM ERROR. EITHER THE SUM OF LOCATIONS 0010 
THRU 0036 DOES NOT EQUAL ZERO, OR AN ADD FAILURE 
HAS OCCURRED. COMPARE DATA IN LOCATIONS 0010 THRU 
D036 WITH DATA IN CARD COLUMNS 1 THROUGH 78. IF 
CORRECT, RUN CARDS 2 THRU 5 OF ONE-CARD DIAGNOSTIC 
PROGRAMS TO HELP DETERMINE CAUSE OF FAILURE. 

PROGRAM HAS FOUND THAT A WORO IN THE READ-IN AREA 
AND THE WORD AT LOCATION WHERE THE WORD READ IN WAS 
TRANSFERRED 00 NOT AGREE. THE ADDRESSES OF THE 
WORDS FOUND NOT TO AGREE CAN BE FOUND AT LOCATIONS 
OODA AND OODC. THE PROBLEM MAY BE A DATA-TRANSFER 
ERROR OR AN EOR FAILURE. RUN ONE-CARD DIAGNOSTIC 
PROGRAMS TO DETERMINE CAUSE OF PROBLEM. 
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4. PRINTOUTS (NONE) 

5. COMMENTS 

THF 1130 BASIC DIAGNOSTIC LOAOER IS A SELF-CHECKING PROGRAM 
DESIGNED TO LOAO AND VERIFY LOADING OF CARD PROGRAMS PUNCHED IN 8-8 MODE. 
THF 8-8 MODE REFERS TO PROGRAM CARDS IN WHICH A CARO COLUMN CONTAINS A 
HALF WORD WHERE ONE FULL WORD CONSISTS OF SIXTEEN BITS. TWO CARD COLUMNS 
ARE REQUIRED FOP FACH WORO. THE LOADER DECK CONSISTS OF FIVE CARDS. THE 
FIRST CARD IS PUNCHED IN I«>L-MODE FORMAT. CAROS TWO THROUGH FIVE ARE 
PUNCHED IN 8-8 MODE. 

5.1 BASIC-LOADER FIRST-CARD FUNCTIONS 

5.1.1 AFTER BEING LOADEO IN IPL MODE, THE FIRST -CARD PROGRAM DEVELOPS A ' ' 
CHECKSUM TO DETERMINE IF IT WAS LOAOEO CORRFCUY. IF THE CHECKSUM IS 
NOT 0000, THE PROGRAM STOPS AT A WAIT WITH THE DEVELOPED CHECKSUM 
DISPLAYED BY THE ACCUMULATOR. 

5.1.2 IF THE CHECKSUM IS CORRECT, THE FIRST-CARD PROGRAM PROCEEDS TO LOAD 
CAROS TWO THROUGH FIVE. TWO CARO COLUMNS WILL FORM ONE STORAGE WORD 
BECAUSE THESE CARDS ARF PUNCHED IN 8-8 MODE. THE DSW IS CHECKED, AND 
IF AN ERROR IS DETFCTED, THE PROGRAM WILL STOP AT A WAIT WITH THE 
ERROR OSW DISPLAYED BY THE ACCUMULATOR. THE CONDITION CAUSING THE 
DSW ERRO" MUST BE CORRECTED BEFORE ATTEMPTING TO RELOAD. 

5.1.3 AFTER LOADING CAROS TWO THROUGH FIVE, THE PROGRAM BRANCHES TO 
BEGINNING OF PROGRAM JUST LOADED. 

5.2 FUNCTIONS OF BASIC-LOAOER CARDS TWO THROUGH FIVE 

5.2.1 CAROS TWO THROUGH FIVE LOAD A MAIN-PROGRAM CARO INTO LOCATIONS 0010 
TO 0036. THE OSW IS CHECKED AFTER READING A CARO COLUMN, AND IF AN 
ERROR OCCURRED, THE PROGRAM STOPS AT A WAIT WITH THE DSW ERROR 
OISPLAYEO BY THF ACCUMULATOR. 

5.2.2 CAROS TWO THROUGH FIVE ALSO OFVELOP CHECKSUM OF LOCATIONS 0010 
THROUGH 0036. IF CHECKSUM IS OTHER THAN 0000, PROGRAM STOPS AT ERROR 
WAIT WITH CHECKSUM DISPLAYED BY ACCUMULATOR. A CORRECT CHECKSUM 
MEANS CARO WAS REAO CORRECTLY. l 

5.2.3 THF WORO COUNT, (NUMBER OF WORDS ON THE CARO) IS TAKEN FROM 
LOCATION 0034. IF IT IS ZFRO PROGRAM STOPS AT ERROR-WAIT. 

5.2.4 THE NUMBER OF WOROS SPECIFIED IN LOCATION 0034 IS RFLOCATEO, 
STARTING AT THE ADDRESS THAT WAS SPECIFIED IN CARD COLUMNS 75 AND 76 
ANO THAT WAS READ INTO LOCATION 0035. 

5.?. 5 THF OATA REAO AND THE D* T * * T THE TRANSFEPEO LOCATION ARE COMPARED 
WORD BY WORD TO VERIFY THAT THE RELOCATION HAS BEEN DONE CORRECTLY. 
AN UNEQUAL COMPARISON RESULTS IN THE PROGRAM STOPPING AT AN FNOV-WAIT 
INDICATING AN RELOCATION ERROR. 

5.2.6 THE PROGRAM REPEATS THE STEPS DISCUSSED IN PARAGRAPHS' 5.2.1 THROUGH 
5.2.5 FOR FACH CARO OF THE MAIN PROGRAM DECK, EXCEPT FOR THE LAST 
CARO, WHICH MUST HAVE A LOCATION ADDRESS DF 0000. AFTER READING THE 
CARO AND DEVELOPING THE CHECKSUM, THE PROGRAM BRANCHES TO LOCATION 
0010 ANO STARTS EXECUTING THE MAIN LINE PROGRAM. 
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APPENDIX 

6.1 PUNCHED CAPO 8-8 FORMAT 

THE ORGANIZATION OF THE PUNCHED CARD 8-8 FORMAT IS AS FOLLOWS. 

A. COLUMNS 1 THROUGH 72 CONTAIN HALF VOROS 18 BITS! PUNCHED 
INTO ROMS 12 THROUGH 5. WORD-BITS THROUGH 7 ARE PUNCHED 
INTO EVEN NUMBERED COLUMNS. WORD-BITS 8 THROUGH 15 ARE 
PUNCHED INTO QDO NUMBERED COLUMNS. 

B. COLUMNS 73 ANO 7* CONTAIN A WORD-COUNT OF THE TOTAL NUMBER OF 
DATA WORDS PUNCHED INTO THE CARD. 

C. COLUMNS 75 AND 76 CONTAIN THE LOCATION, IN CORE WHERE THE 
DATA ON THE CARD APE TO BF LOADED. 

0. COLUMNS 77 ANO 78 CONTAIN A CHECKSUN ITWO'S COMPLEMENT OF THE 
SUM OF ALL WORDS IN COLUMNS 1 THROUGH 761. 

F. COLUMNS 79 ANO 80 CONTAIN THE CARD'S SEQUENCE NUMBER PUNCHED 
IN HOLLERITH/HEXADECIMAL FORMAT. 



DATE 02JAN66 01MAT66 **0G "> 03A3-* 

EC NO. 615490 415690C w « 5 



S 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



BASIC DIAGNOSTIC LOADER 
LIST FOR CARD ONE (IPL> 



PART NO. 
PAGE 



2191252 
1 









ABS 






CLDOOOOO 




028C 






ORG 


/OOOO 




CLK>0010 








• 


- 1130 
LOAD 


LOADER CARO 
WITH PROGRAM 




ft 9^P\.fK J% *^l% 








» 


LOAD BUTTON 


- CLD0002C 








* 








CLO00060 




0000 


C02C 


STA*T 18 


RDIN+1 


CORRECT I/O CONT. COMM. 


CLCOOTO 




0001 


1802 




SRA 


2 


BY SHIFTING 


CLD00080 




0002 P 


D02A 




STO 


RDIN+1 




CLDOOC90 




0003 


C023 




LD 


STRD 


CORRECT I/O CONT. COMM. 


CL000100 




0004 


1801 




SRA 


1 


BY SHIFTING AND 


CLDP0110 




epos o 


0021 




STO 


STRD 


STORE WORD 


CLXQL2P 




00O6 


F038 




EOR 


STORE 


SET UP STORE LONG INST 


CL000130 




0007 


D037 




STO 


STORE 


PUT BACK INTO CORE. 


CLD00140 




0008 


C022 




LD 


SENSE 


CORRECT I/O CONT. COMM. 


CLD00150 




0009 


1803 




SRA 


3 




CLDC0160 




OOOA 


D020 




STO 


SENSE 




CLD00170 




OOOB 


F01D 




EOR 


RESET 




CLD00180 




OOOC 


D01C 




STO 


RESET 




CLD00190 




oooo o 


1805 




SRA 


5 


MAKE STORE LONG INST. 


CL000200 




OOOE 


F031 




EOR 


STORE* 1 




CLD00210 




OOOF 


DO 30 




STO 


STORE* 1 




CLD00220 




0010 


C017 




LO 


INTAD 




CL0O0230 




0011 


D0F6 




STO 


/0008 




CL000240 




0012 


D0F9 


* 


STO 


/OOOC 




CLDP025P 
CLDC0260 




0013 


C0I6 


STRT 


LD 


CHKSM 


FORM CHECK SUM .THIS CARD 


CLD002TO 




0014 


8000 




A 


• 


FROM 0015 THRU 004D 


CLOO0280 




0015 


0014 




STO 


CHKSM 


- 


CL000290 




0016 


COFD 




LD 


STRT+1 




CLDP0300 




0017 


800E 




A 


K0001 


MODIFY ADD INSTRUCTION 


CLD00310 




0018 


DOFB 




STO 


STRT*1 




CLD00320 




0019 


F008 




EOR 


C0N1 


CHECK THAT LAST LOC.CHECKD CL0003» 




001A 


4820 




BSC 


Z 


SKIP WHEN DONE 


CLD00340 




001 B 


70F7 




MOX 


STRT 


GO GET NEXT WORD 


CL000350 




001C 


COOO 




LD 


CHKSM 


GET SUM OF 0013 THRU 004F 


CLD00360 




001D 


4820 




BSC 


Z 


- SEE ACC IS OOOO IF SO GO CLD00370 




001E 


30F1 




WAIT 


-15 


CHECK SUM ERROR 


CL0C03B0 




001F 


7010 


ENDCK 

• 


MOX 


SRTRD 


START LOADING 


CL000390 
CLD00400 




0020 


B823 


INT 


oc 


/B823 




CLD00410 




0021 


0806 




XIO 


RE SET- 1 


SENSE AND RESET DSW 


CLD00420 




0022 


48F8 




DC 


/48F8 


BGSC *-Z 


CL000430 




0023 


0803 _ 


K0803 


DC 
MOX 


/0803 
PACK 




CLD00440 
CLOP0450 




002* U 


"J WOP"' ' — 










• 








CL000460 




0025 


8039 


CON! 


A 


X /0039 




CL DO 04 70 




0026 


0001 


K0001 


DC 


/0001 


START RD.USED AS CONSTANT 


CLD00480 




0027 


2808 


STRD 


DC 


/2808 


/1404 SET BY PROG. 


CL00C490 




0028 


00 20 


INTAD 


DC 


INT 


RESET DSW CONTROL COMMAND 


CI 000500 




0029 


0003 


RESET 


DC 


/0003 


/1703 SET BY PROGRAM 


CLDC0510 




002A 


3829 


CHKSM 


DC 


/3829 


SENSE DSW CONTROL COMMAND 


CLDP0520 




002B 


B800 


SENSE 


DC 


/B800 


/1700 SET BY PROGRAM 


CLD00530 




002C 


POOO 


RDIN 


OC 


/OOOO 


READ IN LOCATIONS 0*1 


CLD00540 




002D 


4800 


* 


DC 


/4800 


/1200 SET BY PROGRAM 


CLO00550 
CLOP0560 




002E 


F017 


ERROR 


EOR 


K0800 


RESTORE ACC. TO OSW 


CLD00570 




002F n 


30F2 




WAIT 


-14 »*ERR. DSW IN ACC. 


CLD0058C 








* 








CLD00590 




0030 


08F5 


SRTRD 


XIO 


STRD-1 


START READ 


CL000600 




0031 


08F6 




XIO 


RE SET- 1 


RESET DSW 


CLD00610 




0032 


08F7 




XIO 


SENSE- 1 


SENSE OSW FOR CRP 


CL0C0620 




0033 


F011 


PACK 


EOR 


K8003 


BITS + 14 ♦ 15 ONLY 


CLD00630 




0034 


4820 




BSC 


Z 


SKIP IF BITS 0*14*15 DNLY 


CLD00640 




0035 


7011 




MOX 


C0NT1 


CONTINUE DSW ANALYSIS 


CLD00650 




0036 

0037 


08F5 
C0F4 




XIO 
LD 


RDIN 
RDIN 


RD COL. ONE-HALF WORD 


CL00066P 
CLD00670 




0038 


FOEO 




EOR 


K0001 


SWITCH READ IN AREA, EVEN 


CLD00680 




0039 


D0F2 




STO 


RDIN 


COLS. IN ODD IN 1 


CLD00690 
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n 


1 


C 


1 
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003A 





4820 


003B 





70F5 


003C 





C0C3 


0030 


c 


1808 


003E 





F0C2 


003F 





COO 4 


0040 





OOF 7 


0041 





COFE 


0042 





80E3 


0043 





OOFC 


0044 





70EC 


0045 





8003 


0046 





0800 


0047 





F00 3 


0048 





4820 


0049 





7002 


0O4A 





7067 


004B 





8000 


004C 





F0D6 


0040 





4820 


004E 





70DF 


0O4F 





30F3 



0050 



STORE 
* 3TUR 



* 

K80P3 

K0800 

* 

C0NT1 



K8000 
CONT 2 



* 

* CARD 

* CHEC 



OOOO 



BSC 

MOX 

LD 

SRA 

FOR 

DC 

DC 

E ♦ 

LD 

A 

STO 

MOX 

DC 

DC 

EOR 
BSC 
MOX 
MOX 
DC 

EOR 
BSC 
MDX 
WAIT 

2 IS 

K FOR 
END 



Z SKIP BOTH HALVES IN 

SRTRD* 1 GET 2ND HALF WORD 

START GET LAST 8 BITS 
8 SHIFT IT 

START+1 GET FIRST 8 BITS 
/COO*. FIRST WORD OF STO L 

/00F7 2ND WORD OF STORE LONG 

STORE *1 CHANGED BY PR0G9 TC STO L /P04F 
STORE* 1 

K0001 MODIFY STORE ADDRESS 

STORE* L 
SRTRD* 1 

/8003 
/0800 



K8J00 

I 

C0NT2 

SRTRD*2 

/8000 

K0803 
I 

ERROR 
-13 



CHECK FOR BITS 14+15 ONLY 
SKIP BUSY AND NOT READY 



CHECK FOR BIT 4 ONLY 
SKIP END OF CARD 

**ERR IF PRGH STOPS AT WAIT 



READ IN AT THIS LOCATION WITH THE 
READ OF 4 CARDS. 
START 
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CLD00820 
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CL0P0840 

CLD0085C 
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CLD00870 

CLD00880 

CLDC0890 

CLD00900 

CLD00910 
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CL00094P 

CLD00950 

CLDC0960 

CLD0097P 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


CHKSM 


002A 


0013tOCl5,001C 


C0NT1 


004? 


0035 


C0NT2 


004C 


CO 49 


C0N1 


0025 


CO 19 


ENDCK 


001F 




ERROR 


002E 


00 4E 


INT 


0020 


0028 


I NT AD 


0028 


0010 


K0001 


0026 


0017,0038,0042 


K0800 


0046 


00 ?E 


K0803 


0023 


C04C 


K8000 


004* 


CO 47 


K8003 


C045 


00 33 


PACK 


0033 


0024 


RDIN 


002 C 


P" 00, 0002,0036,0037,0039 


RESET 


0029 


OOOB.OOOC, 002 1,0031 


SENSE 


002B 


eoce,ocoA,o?32 


SRTRO 


0030 


00 ]F,003B,0044,C04A 


START 


0000 


0O3C,O03E,O05O 


STORE 


003F 


0006,0O07,O00E,00OF,0O41,0O43 


STRD 


0027 


OOC3,000 5,0030 


STRT 


001? 


0016,0016,0016 



o j o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

O 

o o 

O 

O 

o o 

o o 

o o 



o 
o 







o 
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n 





1 





1 





■■') 





"i 





•1 





1 








*i 


r» 



02BC 
004F 

9P50- 
0051 
0052 
0053 
0054 



0055 

0056 

0057 
0056 



0059 
005A 
005B 
005C 
005D 
005E 
005F 



0060 

0061 

0062 



0063 
0064 
0065 
0066 
0067 
0068 
0069 
006A 
006B 
006C 
0060 
006E 
006F 
0070 
0071 
0072 



0073 
0077 
0078 
0079 
007A 
007B 
007C 
007D 
007E 
007F 
0080 



CO 20 
8020 
001E 
F01F 

4820 
70 DB 

C071 

D0F9 
C070 
O0A7 

C034 
001D 
C022 
0027 
C022 
D0A9 
OOAC 

0810 
081E 
081F 

F027 

4820 
7031 
0810 
C01C 
F008 
D01A 
F013 
4820 
70F4 
C018 
1808 
7007 
0000 
0001 
0004 



FOOF 
0097 
COFE 
80F6 
DOFC 
70 E4 
7096 
0086 
1404 
008F 
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ABS 

* CARDS 2,3,4, +5 

* THIS PROGRAM READS ONE CARD OF 8/8 FORMAT 

* INTO LOCS. COO" THRU 0027. 

* THE CHECK SUM IS CHECKED. FOR SUM LOCS. 

* OOOOTHRU 0026 TO BE ZERO 

* THE NUMBER OF WORDS SPECIFIED IN IOC. 0024 

* ARE MOVED TO THE LOCATIONS BEGINNING AT THE 

* ADDRESS IN PC25. THE WORDS MOVED ARE CHECKED 

* AGAINST THE IMAGE IN CCOO AND FOLLOWING. 

* IF ALL CHECKS ARE OK THE NEXT CARD IS READ. 

* CARO 2 BEGINS HERE 
* 



ORG 
LD 

R5-TRT A- 

STO 
EOR 
BSC 
MDX 

* 

LD 
STO 
LD 
STO 

• 

LOAD LD 
STO 
LD 
STO 
LD 
STO 
STO 

* 

SRTRD XIO 
XIO 
XIO 



PACK 



EOR 
BSC 
MOX 
XIO 
LO 
EOR 
STO 
EOR 
BSC 
MDX 
- ID - 
SRA 
MDX 
COUNT DC 
K0001 DC 
K0004 OC 
•* 

* CARD 3 
* 

ORG 
EOR 
STORE STO 
LD 
A 

STO 
MDX 
HOP MDX 
COM2 DC 
STRD DC 
INTAD DC 



/004F 

COUNT 

KOOCl 

COUNT 

K0004 

Z 

/0030 

MDX 
RSTRT 
MDXO 
/OOOO 

C0N1 

STORE 

C0N2 

RDIN 

INTAD 

/0008 

/OOOC 

STRD-1 

RESET-1 

SENSE-1 

K8O03 
Z 

C0NT1 
RDIN 
RDIN 
KOOCl 
RDIN 
COM2 
Z 

SRTRO+1 
— -HOEVN 
8 

/0077 
/OOOO 

/nooi 

/0004 

BEGINS HERE 

/O077 

RDODD 

/OOIC 

STORE 

K0001 

STORE 

SRTRD+1 

/0014 

RDEVN 

/1404 

INT 



COUNT CARDS READ 



CHECK FOR 4 CARDS READ 
SKIP 4 CARDS READ 
GO TO START READ 

SET RESART BRANCH 



RESTORE STORE INST. 
RESTORE RDIN LTC. 



START READ 
RESET DSW 
SENSE DSW 

CHECK BITS 0, 14*15 ONLY 
SKIP IF COL. REQUEST 

REAO A COLUMN 

SET NEXT READ IN LOCATION 



SKIP IF BOTH HALF WORDS IN 
COMBINE HALF WORDS 



STORE FULL WORD 

SET NEXT WORD LOCATION 



START PROGRAM 
READ CARD CONTROL COMMAND 



RESET 



OSW CONTROL COMMAND 
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CLD01000 
CLD01010 
CLDC1020 
CLBC1030 
CLD01040 
CLD01050 
CLDO106O 
CL001070 
CL0C1P80 
CLD01090 
CLD"1100 
CL0P1110 
CLD0112P 
CL0C1130 
CLD0H40 
CL001150 
CLD01160 
CLD01170 
CL001180 
CL001190 
CLD01200 
CL001210 
CLD01220 
CLD*1222 
CLD01224 
CLD01230 
CLD01240 
CLD0125P 
CL001260 
CLD01270 
CLD01280 
CLD01290 
CLDP130C 
CLD01310 
CL001320 
CLDC1330 
CL001340 
CLDO1350 
CL001360 
CLD01370 
CLD01380 
CL001390 
CLD01400 
CL001410 
CLD0142O 
CL001430 
CL001440 
CLDP1450 
CL001460 
CL001470 
CL001490 
CLD0150O 
CLD01510 
CL001520 
CL0P1540 
CLD0155P 
CLDO1560 
CL00157P 
CL001571 
CL001580 
CLO01590 
CL00I60P 
CL001610 
CLDP1620 
CL0O1630 
CLDO1650 
CLDM660 
CL001670 
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0081 





1703 


RESET 


DC 


/1703 




CLD01680 




0082 





0000 


CKSUM 


DC 


/oooo 


SENSE DSW CONTROL COMMANO 


CLD01690 




0083 


r. 


1700 


SENSE 


DC 


/1700 




CLD01700 




0084 





0096 


RDIN 


DC 


PDEVN 


READ COL. CONTROL COMMAND 


CLDT1710 




0085 


r» 


1200 




DC 


/12C0 




CLD0172O 




0086 





0000 


ROEVN 


DC 


/OOOO 




CLD01730 




0087 





000" 


RDODD 


DC 


/OOOO 




CL001740 




0C8B 





0034 


KC034 


DC 


/0034 




CLD01750 




0089 





0037 


K0P37 


DC 


/0037 




CLD01760 




008A 


n 


0800 


K0810 


DC 


/0800 




CL001770 




008B 





80" 3 


K800 3 


DC 


/BOO 3 




CLD01780 




008C 





0010 


K0010 


DC 


/0010 




CL001790 




008D 





8000 


KBOOO 


DC 


/8000 




CLDT1800 




008E 


r 


D097 


C0N1 


STO X 


/0010-STORE-l 


CLD01805 










• 








CL001810 




008F 





0000 


INT 


DC 







CLD01820 




0090 





08EF 




XIO 


RE SET- 1 


SENSE AND RESET DSW 


CLD0183O 




0091 





4878 




BOSC 


♦-Z 


BR OUT OF INTERRUPT 


CLD01840 




0092 





0803 


K08O3 


DC 


/0803 




CLD01850 




0093 





70CF 


• 


MOX 


PACK 




CL001860 
CLD01870 




0094 





F0F5 


ERROR 


EPR 


K0800 


RESTORE ACC TO DSW 


CLD01880 




0095 





30F4 




WAIT 


-12 


»*ERR. DSW IN ACC. 


CLDP1890 




0096 


p 


70C2 




HDX 


LOAD 


PRESS START TO RETRY 


CLD01900 




0097 





F0F5 


C0NT1 


FOR 


KBOOO 


CHECK FOR BITS 14*15 ONLY 


CLD01910 




0098 





4820 




BSC 


Z 


SKIP BUSY AND NOT READY 


CLD01920 




0099 





7005 




MPX 


C0NT2 




CLD01930 




009A 





70C7 


• 


MDX 


SRTRD+2 




CLDP1940 
CLD01950 










• CARD 4 BEGINS HERE 




CLD01960 










• 








CLD01970 




009B 








ORG 


/009F 




CLDC1980 




009F 





F0F2 


CO NT 2 


EOR 


K0803 


CHECK FOR BIT 4 ONLY 


CLD01990 




OOAO 





4820 




BSC 


Z 


SKIP END CF CARD 


CL002000 




00A1 





70F2 


• 


MDX 


ERROR 




CL DO 20 10 
CLD02020 










t.H.rucrv erm 




CLD0203O 
CLD02040 










• 




PUnuim "~ .-■-—.. ..... 






00A2 





C091 




LO 


/0034 


GET WORD COUNT 


CLD02050 




00A3 





4820 




BSC 


Z 


SKIP IF WORD COUNT ZERO 


CLD0206O 




00A4 





700 2 




MOX 


SUM1 




CLD020TP 




00A5 





30F5 




WAIT 


-11 


**ERR. WORD COUNT IS ZERO 


CLD0208O 




00A6 





70B2 


• 


MDX 


LOAD 


START CONTINUES LOADING 


CLDC2090 
CL002100 
















* 


-FORM CHECR SUM OF CARO IMAGF L OCS. *00-26 


CLD02110 










• 








CLD0212O 




00A7 





C0E4 


SUM1 


LD 


K0010 


SET ACC. TO /0010 


CLO0213O 




00A8 





0004 




STO 


CKLCO+1 




CL 002140 




00A9 





1810 




SRA 


16 




CLD02150 




OOAA 





0O07 




STO 


CKSUM 




CLD02I60 




00 AB 





C0D6 




LD 


CKSUM 




CL00217O 




00 AC 


00 


8400FFFF 


CKLOO 


A I 


/FFFF 


FORM SUM OF LOCS. 10 THRU 36 


CL002160 




OOAE 





0OD3 




STO 


CKSUM 




CL0P2190 




OOAF 





COFD 




LP 


CKLOO* 1 


MODIFY ADORE SS 


CLD02200 




OOBO 





80C0 




A 


K0001 




CL002210 




0061 





DOFB 




STO 


CKLOD+1 




CLD0222O 




00B2 





F0D6 




EOR 


K0037 


CHECK THAT ALL WORDS DONE 


CL002230 




0083 





4820 




BSC 


Z 


SKIP ALL LOCS. ADDED 


CLD02240 




00B4 





70F6 




MOX 


CKLOO- 1 




CLO02250 




0085 





COCC 




ID 


CKSUM 


LOAD SUM 10 THRU 36 


CL0C2J60 




O0B6 





4820 




BSC 


Z 


SKIP SUM IS CORRECT 


CLDC2?7t 




00B7 





30F6 


*.". 


WAIT 


-10 


**ERR. IN CHECK SUM 


CLD02260 
CLO02290 










» MOVE CARD tMAGE TO THE LOCS. BEGINING AT 


CL002300 
CLO02310 










• i fit ~ 


NUUnc }j 


uivcn in luv< f v</«; jm — - - 










* 








CLD02320 




O0B8 


0f> 


C4000"35 


MOVE 


LD I 


/0035 


GET AODRESS FOR FIRST WORD 


CLD0233C 




OOBA 





4820 




BSC 


7 


SKIP AODRESS IS OOOO 


CLD02340 




OATE 




01MAY66 










PROG ID 


03A3-1 


EC NO. 


4154 90C 










PAGE 


3 



c 





) 


C 


1 





') 





~) 

















') 





■1 


D 


o 





1 





: 1 





1 











n 





"i 





~i 





"■) 





- 





i 





c> 



OOBB 





7001 


ODBC 





70CO 


OOBD 





D0"C 


OOBE 





COCO 


OOBF 


'J 


Don 


OOCO 


00 


C400FCFF 


00C2 





7006 



00C3 

00C7 

00C8 

00C9 00 

OOCB 

OOCC 

OOCD 

OOCE 

OOCF 

OODO 

0OD1 

00D2 

00D3 

00D4 00 

0006 

00D7 

00D8 

00D9 00 

OODB 00 

OODD 

OODE 

OOOF 

OOEO 

0OE1 

00E2 

0OE3 

00E4 

00E5 

0OE6 

00E7 

00E8 

OOEA 


















7008 

7013 

D400FFFF 

COFE 

80A4 

DOFC 

C0F2 

80 A 1 

DOFO 

F086 

4820 

70EC 

C40000 35 

OOP 3 

C0B4 

D0O3 

C40PFFFF 

F400FFFF 

4820 

30F7 

CO FA 

8090 

D0F8 

C0F9 

8080 

OOF 7 

F0A2 

4820 

70F1 

70BD 

0059 



STRE 



GET 



MOX 

MDX 

STO 

LD 

STO 

LD 

MDX 



STRE 

HOP 

PUT+1 

K0010 

GET+1 

/FFFF 

PUT 



START PROGRAM VIA HOP 
SET FIRST WORD ADDRESS 
SET ACC. EOU. 0010 
SET TO GET FIRST WORD AT 
GET PROG. WORD 



* CARD 5 BEGINS HERE 



ORG 

MDX MDX 

MDXO MDX 

PUT STO 

LD 

A 

STO 
LO 
A 

STO 
EOR 
BSC 
MOX 
SUM2 LO 
STO 
LD 
STO 
CKMOV LD 
COMP EOR 
BSC 
WAIT 
LD 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
MDX 
END 



/00C7 

LOAD-R 

/0013 

/FFFF 

PUT+1 

K0001 

PUT+1 

GET+1 

K0001 

GET+1 

K0034 

Z 

GET 

/0035 

CKMOV+ 

KO010 

COMP+1 

/FFFF 

/FFFF 

Z 

-9 

CKMOV+ 

K0001 

CKMOV+ 

COMP+1 

K0001 

COMP+1 

K0034 

Z 

CKMOV 

SUM1-1 

LOAD 



STRT-1 



PUT PROG. WORD 
MODIFY PUT 



MODIFY GET 



CHECK FOR ALL WORDS MOVED 
SKIP ALL WORDS MOVED 

GET ADDRESS OF FIRST WORD 
PUT IT INTO ROUTINE 

SET TO GET FIRST WORD OF 
IMAGE 

GET WORD MOVED 

COMPARE WITH CARD IMAGE 

SKIP WORD STORED OK 
*»ERR. WORD NOT STORED OK. 

MODIFY FOR NEXT WORD 



MODIFY FOR NEXT COMPARE 



CHECK IF ALL DONE 
SKIP ALL WORDS CHECKED 

GO GET NEXT CARD 



CLD0235C 
CLDT2360 
CLD02370 
CLD023BO 
CLD0239P 
CLO024O0 
CLD02410 
CLOP2420 
CLDC2430 
CLD0244P 
CL0C245C 
CLDP2456 
CLD02457 
CL DO 2460 
CLDO2470 
CLDP2480 
CLDC2490 
CL00250P 
CLDO2510 
CLD02520 
CLD02530 
CLDC2540 
CLD0255P 
CLD02560 
CLD02570 
CLDT2580 
CLD02590 
CL002600 
CLDT2610 
CL00262O 
CLD02630 
CLD02640 
CLDC2650 
CLD02660 
CL002670 
CLD02680 
CL002690 
CLD02700 
CID02710 
CLD02720 
CLO02730 
CLDP2740 
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SYMBOL 


VALUE 


RFFERENCES 




CKLOD 


OOAC 


CPA8,00AF,O0Bl,0OB4 




CKMOV 


0009 


0OD6,PCDF,O0El,00E7 




CKSUM 


0082 


CCAA,OCA8,OOAE,0085 




COMP 


OODB 


O0D8,0CE?,OOE4 




C0NT1 


0097 


0065 




C0NT2 


009 F 


0099 




C0N1 


008 E 


0059 




C0N2 


007 E 


00 5B.0C6A 




COUNT 


0070 


PP4F,Q051 




ERROR 


O09V 


00 Al 




GET 


OPCO 


O"BF,0OCE,O0D0,OOD3 




HOP 


O07D 


00 BC 




INT 


C08F 


0080 




INTAD 


O080 


0O5D 




KOOOl 
K0004 


0071 
0072 


0O5O,0068,007A,00B0,00CC 

00 5? 


,00CF,00EC«00E3 


K0010 


008 C 


0OA7,0CBE,O0D7 




K0034 


00R8 


0001, 0OE5 




K00 37 


0089 


00 B2 




K0800 


008A 


0094 




K0803 


0092 


00 9F 




K8000 


008D 


0097 




K8003 


008B 


00 63 




LOAD 


0059 


O0 9fe,0CA6,OOC7,OOE9 




MOX 


O0C7 


0055 




MDXO 


O0C8 


0057 




MOVE 


00B8 






PACK 


006 3 


0093 




PUT 


00C9 


PP 80, OOC 2, OOCB.OOCD 




RDEVN 


P0R6 


OO60,007E,0P84 




RDIN 


0084 


00 SCO €66,0067,0069 




ROOOD 


0087 


0077 




RESET 


0081 


0061 ,0090 




RSTRT 


0050 


0056, 00C7 




SENSE 


008 3 


0062 




SRTRQ 


0060 


006C007C.009A 




STORE 


007 8 


00 5A,0C79,007B,008E 




STRO 


007F 


00 60 




STRP 


OOBD 


OOBB 




SUM1 


00A7 


00A4.00E8 




SUM2 


00D4 










(■ 


Q 


c 
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'■'.) 










1 





J 
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D 
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/>es 






02 BC 






ORG 


/OOOO 




0000 


7011 


* 


LOAD 
MOX 


WITH PROGRAM 
STRT 


LOAD BUTTON 


0001 


OOno 




OC 






0002 


0000 




DC 






0003 


cooo 




DC 






0004 


0000 




DC 






0005 


0000 




DC 






0006 


cooo 




DC 






0007 


0000 




DC 






0008 


0000 




DC 






0009 


0000 




DC 






OOOA 


0000 




DC 






000 B 


0000 




OC 






OOOC 


003A 




OC 


INT 




OOOD 


0000 




DC 






OOOE 


0000 




DC 






OOOF 


0000 




DC 






0010 


0000 




DC 






0011 


0000 




DC 






0012 


cooo 


• 
STRT 


LD 


CHKSM 


FORM CHECK SUM 


0013 00 84000000 




A 


L /OOOO 




0015 


OOOA 




STO 


CHKSM 




0016 


COFO 




LO 


STRT*? 




0017 

0018 


8064 
OOFB 




A 
STO 


KOOOl 
STRT+2 


MODIFY ADD INSTRUCTION 


0019 
OOIA 


F007 
4820 




EOR 
BSC 


LAiT 
Z 


CHECK THAT LAST LOC.CHE 
SKIP WHEN DONE 


001 B 


70F6 




MDX 


*tRT 


GO GET NEXT WORD 


001C 
0010 
OUE 
OOIF 


C003 
4820 




LD 
BSC 


CHKSM 
Z 


GET SUM OF OOOO THRU 00 
SKIP IF CKSUM ZERO 


3PF1 

7030 




WAIT 
MDX 


-15 
LOAD 


CKSUM ERROR 
START LOADING 


0020 


206 E 


CHKSM DC 


/2D6E 




0021 


00E9 


LAST 

• 


DC 


END 




0022 


FFFF 


DC 


/FFFF 




0023 


0000 




DC 






0024 


0000 




DC 






0025 


0000 




DC 




t , 


0026 


0000 




DC 






0C27 


0000 




DC 






0028 0" 


0000 - 




-DC 




- 


0029 


OOOO 




DC 






002 A 


0000 




DC 






002B 


0000 




OC 






002 C 


OOOO 




DC 






0020 


0000 




DC 






002E 


OOOO 




DC 






002t 


OOOO 




DC 






0030 


OOOO 




DC 






0031 


OOOO 




DC 






0032 


oooo 




OC 






0C33 


0000 




DC 






0034 


OOOO 






DC 






0035 


OOOO 






DC 






0036 


OOOO 






DC 






0037 


OOOO 






DC 






0036 


OOOO 






DC 






0039 


OOOO 






DC 






003A 


OOOO 




INT 


DC 


r 




003B 
003C 
0030 


0842 
4878 
OOOO 






XIO 

BOSC 

DC 


RESET 

♦-Z 




SENSE AND RESET DSW 
BR OUT OF INTERRUPT 


003E 


701F 




MOX 


PACK 




003F 


OOOO 




DC 
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0040 


0000 




DC 






TDL00680 




0041 


0000 




DC 






TDL00690 




0042 


0000 




DC 






TDL00700 




0043 


D09F 


C0N1 


STO X 


/0P1O-STORE-1 


TDLC0710 




0044 


004E 


C0N2 


DC 


ROEVN 




TDL00720 




0045 


0028 


C0N3 


DC 


40 




TDL00730 




0046 


7F00 


OELET 


DC 


/7F00 




TDLP0740 




0047 


7006 


FIX 


MDX X 


Y-X-l 




TO LOO 7 50 




004 8 


COED 


REFIX 


LD X 


RDEVN- X-l 




TDL0076P 




0049 


0000 


WCNT 


DC 







T0L00770 




004 A 


4CO0 


K4CO0 


DC 


/4C0O 




TDL00760 




f»64* 


ECFfr 


KECFO 


DC 


/ECF-0 


PUNCH- MT MASK 


TDL0079P 




004C 


OCOO 


KPCOO 


OC 


/OCOO 




T0LC0800 




004D 


4000 


R4000 


DC 


/4000 




TDL00810 




0P4E 


0000 


RDEVN 


DC 


/oooo 




TDL00820 




004F 


0000 


ROOOD 

* 


DC 


/oooo 




T0L0083O 
TDL00840 




0050 


C0F2 


LOAD 


LD 


C0N1 




TDL0085P 




0051 


D01E 




STO 


STORE 


RESTORE STORE INST. 


T0LC0860 




0052 


C0F1 




LD 


C0N2 




TDL00870 




0053 


D02E 




STO 


RDIN 


RESTORE RDIN LOC. 


TDL00880 




0054 


COFO 




LO 


C0N3 




TDL00890 




0055 


D0F3 




STO 


WCNT 




TDL00900 




0056 


C0F1 




LD 


REFIX 




TDLC0910 




0057 


0008 


• 


STO 


X 




TDL0092P 
TDL00930 




0058 


0823 


SRTRD 


XIO 


K0001 


START READ 


TDL00940 




0059 


0826 




XIO 


SENSE 


SENSE DSW 


TDLC0950 




005 A 


EOFO 




AND 


KECFO 


MASK OUT PUNCH BITS 


TDL0096P 




005B 


F0F1 




EOR 


K4000 




TDL00970 




005C 


4820 




BSC 


Z 


SKIP IF COL. REQUEST 


TOLP0980 




005D 


7039 


* 


MDX 


C0NT1 




TOL00990 
TDL01000 




005E 


081F 


PACK 


XIO 


RESET 


RESET OSW 


TDL01010 




005F 


0822 




XIO 


RDIN 


READ A COLUMN 


TOL01020 




0060 


COED 


X 


LD 


RDEVN 




TDL01030 




0061 


90E4 




S 


DELET 




TDL0104C 




0062 


4820 




BSC 


Z 




TDL01050 




0063 


7001 




MOX 


**1 




T0L0106P 




0064 


70F3 




MDX 


SRTRD 




TDL01070 




0065 


C0E1 




LD 


FIX 




TDL01080 




0066 


O0F9 




STO 


X 




TDL01090 




0067 


C01A 


V 


LD 


RDIN 


SET NEXT READ IN LOCATION 


T0L01100 




0068 


F013 




EOR 


K0001 




TDL01110 




0069 


0018 




STO 


RDIN 




TDL01120 




006A 


F0D9 




EOR 


C0N2 




TDL01130 




006B 


4820 




BSC 


Z 


SKIP IF BOTH HALF WORDS IN 


TDL01140 




006C 


70EB 




MDX 


SRTRD 




TDL01150 




006D 


COEP 




LO 


RDEVN 


COMBINE HALF WORDS 


TDL01160 




006E 


1808 




SRA 


8 




TDL01170 




006F 


FODF 


* 


EOR 


ROOOD 




TDL0U8O 
TDL01190 




0070 


D09F 


STORE 


STO 


/0010 


STORE FULL WORD 


TDL01200 




0071 


COFE 




LD 


STORE 


SET NEXT WORD LOCATION 


TDL01210 




0072 


8009 




A 


K0001 




T0L01220 




0073 


DOFC 




STO 


STORE 




TDL01230 




0074 


C0D4 




LD 


WCNT 




TDL01240 




0075 


9006 




S 


K0001 




T0L01250 




0076 


D0D2 




STO 


WCNT 




TDL01260 




0077 


4820 




BSC 


Z 




TDL01270 




0078 


700F 




MDX 


SRTRD 




TDL01280 




0079 


7028 




MDX 


DATA 




TDL01290 




007 A 


7099 


HOP 

* 


MDX 


/0014 


START PROGRAM 


TDL01300 
TDL01310 




00 7B 


0000 


CKSUM 


DC 


/OOOO 




TDL01320 




007C 


0001 


K0001 


OC 


/0001 


READ CARD CONTROL COMMAND 


TDL01330 




007D 


IC10 




DC 


/1C10 




TDL01340 




007E 


0000 


RESET 


OC 


/OOOO 


RESET DSW CONTROL COMMAND 


TDL01350 
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007F 





1F01 


0080 





0004 


0081 





1F00 


0082 





004 E 


0083 





1A00 


0084 





0037 


0085 





0*34 


0086 





0010 


0087 





oooo 


0088 





oooo 


0089 





oooo 


008A 





oooo 


0C8B 





oooo 


008C 





oooo 


0080 





oooo 


008E 





oooo 


008 F 





oooo 


0090 





oooo 


0091 





oooo 


0092 





oooo 


0093 





oooo 


0094 





FOB 7 


0095 





30F4 


0096 





70C2 


0097 





F0B2 


0098 





4820 


0099 





70FA 


009 A 





70BE 


009 B 





OOOO 


009C 





OOOO 


009 D 





oooo 


009E 





oooo 


009 F 





oooo 


OOAO 





oooo 


00A1 





oooo 


00A2 





C091 


00A3 





4820 


00A4 





7002 


00A5 





30F5 


00A6 





70A9 


00A7 





CODE 


00A8 





0004 


00A9 





1810 


OOAA 





DODO 


00A8 





COCF 


OOAC 


00 


8400FFFF 


OOAE 





DOCC 


OOAF 





COFD 


OOBO 





80CB 


OOBl 





DOFB 


00B2 





F0D1 


00B3 





4820 


00B4 





70F6 


00B5 





C0C5 


00B6 





4820 


00B7 





30F6 



DATE 
EC NO. 



01MAY66 
4154 90C 





DC 


/1F01 






TDLP1360 


■* 


SENSE 


DC 


/0O04 


SENSE DSW CONTROL COMMAND 


T0L0137P 






DC 


/1FC0 




TDLC1380 




RDIN 


DC 


RDEVN 


READ COL. CONTROL COMMAND 


TDL01390 






OC 


/1A00 




TDLP140P 




KP037 


DC 


/P037 




TDL01410 




K0034 


DC 


/0034 




TDL01420 




KP010 


DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 


/P010 




TDLC1430 
TDL0144P 
T0LC14 50 
TDL01460 
TDL0147P 
T0LP148O 
TDLP149P 
TDL0150P 
T0LC151P 
T0L01520 
TDLP153C 
TDL01540 
TDLP1550 
TDLP1555 




• 








TDL01560 




ERROR 


EOR 


KOCPO 


RESTORE ACC TO DSW 


TDLP157P 






WAIT 


-12 


**ERR. OSW IN ACC. 


T0LC1580 






MDX 


SRTRD* 1 


PRESS START TO RETRY 


TDL0159P 




* 








TDLP160P 




C0NT1 


FOR 


K4C00 


CHK BITS 4 ANO 5 ONLY 


T0LC161P 






BSC 


Z 


SKIP BUSY AND NOT READY 


TDL01620 






MOX 


ERROR 




T0L01630 






MDX 


SRTRO+1 




TDL0164P 






DC 






TDLP166P 






DC 






TDL01670 






DC 






TDL01680 






DC 






TDL01690 






DC 






TDL01700 






DC 






TDL0171P 






DC 






TDL01720 




* 

* CHECK FOR 


unon r m 




T0LP1730 
TDL01740 








* 








TDLP1750 




DATA 


LD 


/0O34 


GET WORD COUNT 


TDL0176P 






BSC 


Z 


SKIP IF WORD COUNT ZERO 


TOL01770 






MDX 


SUM1 




TOL01780 






WAIT 


-11 


**FRR. WORD COUNT IS ZERO 


TOL01790 






MDX 


LOAD ■ . . 


ilARIXONI INUE-S LOADING 


TDL01800 




* 








TDLP1810 




* 


-FORM CHECK SUM OF CARO IMAGE LOC S. • 10-36 — 


TDL01820 




• 








TDL01830 




SUM1 


LD 


KOOIO 


SET ACC. TO /P01P 


T0L01840 






STO 


CKLOO* 1 




TOL01850 






SRA 


16 




T0L01860 






STO 


CKSUM 




TDL01870 






LO 


CKSUM 




TDL01880 




CKLOO 


A L 


/FFFF 


FORM SUM OF L0CS.10 THRU 36 


T0LP1890 






STO 


CKSUM 




T0LP190P 






LO 


CKLOO* 1 


MODIFY ADDRESS 


TDL01910 






A 


K0001 




TDL01920 






STO 


CKL0D*1 


I 


TDL01930 






EOR 


K0037 


CHECK THAT ALL WORDS 


DONE 


TDL01940 






BSC 


Z 


SKIP ALL IOCS. AOOED 




T0L01950 






MDX 


CKLOD-l 






TDL01960 






LD 


CKSUM 


LOAO SUM 10 THRU 36 




T0LC1970 






BSC 


Z 


SKIP SUM IS CORRECT 




TDL0198P 






WAIT 


-10 


*»ERR. IN CHECK SUM 




TDLP199P 




* 










TDL02000 




* MOVE CARD IMAGE TO 


fHE LOCS. BEGINING AT 


. 


TO LP 20 10 




* THE 


ADDRESS 


GIVEN IN LOC. /0025. 1 


T0L0202P 




* 








TDLP2030 
PROG 10 


03A3-1 












MGE 


5A 



IBH MAINTENANCE 01AGN0STIC PROGRAM FOR THE 1130 SYSTEM 



BASIC DIAGNOSTIC LOADER 
PAPER TAPE BASIC LOADER 



00B8 00 
OOBA 
OOBB 
OOBC 
00 BO 
OOBE 
OOBF 
COCO 00 
00C2 



00C3 
0PC4 
00C5 
00C6 
00C7 
O0C8 














00C9 00 

OOCB 

OOCC 

OOCD 

OOCE 

OOCF 

OODO 

00D1 

00D2 

00D3 

00D4 no 

0006 

0007 
0OD8 
0009 00 
OODB 00 
OODO 
CODE 
OODF 
OOEO 
00E1 
00E2 
00F.3 
00E4 
00E5 
0OE6 
00E7 
00E8 
00E9 
OOEA 



C4000O35 

4820 

7001 

70BD 

OOOC 

C0C7 

D001 

C400FFFF 

7006 

0010 
0000 
0000 
0000 
0000 
0000 

D400FFFF 

COFE 

80AF 

DOFC 

C0F2 

80AC 

OOFO 

F0B3 

4820 

70EC 

C4000035 

000 3 

COAE 

D003 

C400FFFF 

F400FFFF 

4820 

30F7 

COFA 

809 B 

D0F8 

C0F9 

8098 

OOF 7 

F09F 

4820 

70F1 

70B0 

0000 

0050 



MOVE 

ST RE 
GET 



PUT 



SUM2 



CKMOV 
COMP 



ENO 



LO L 

BSC 

MOX 

MDX 

STO 

LD 

STO 

LD L 

NDX 

OC 

or 

DC 
DC 
OC 
OC 

STO L 

LD 

A 

STO 

LO 

A 

STO 

EOR 

BSC 

MDX 

LD L 

STO 

LD 

STO 

LD L 

EOR L 

BSC 

WAIT 

LD 

A 

STO 

LD 

A 

STO 

EOR 

BSC 

MDX 

MOX 

BSS 

END 



/0035 

Z 

S7RF 

HOP 

PUT+1 

K0010 

GET* I 

/FFFF 

PUT 

/0010 



GET ADDRESS FOR FIRST WORD 
SKIP AODRESS IS 0000 

START PROGRAM VIA HOP 
SET FIRST WORD AODRESS 
SET ACC. EOU. 0010 
SET TO GET FIRST WORD AT 
GET PROG. WORD 



/FFFF 

PUT+1 

KOOOl 

PUT*1 

GET*1 

KOOOl 

GET*1 

K0034 

2 

GET 

/0035 

CKMOV* I 

K0010 

C0MP*1 

/FFFF 

/FFFF 

Z 

-9 

CKMOV+1 

KOOOl 

CKMOV* 1 

C0MP*1 

KOOOl 

COMP+l 

K0034 

Z 

CKMOV 

SUM1-1 



LOAD 



PUT PROG. WORD 
MODIFY PUT 



MODIFY GET 



CHECK FOR ALL WORDS MOVED 
SKIP ALL WORDS MOVEO 

GET ADORESS OF FIRST WORD 

PUT IT INTO ROUTINE 
SET TO GET FIRST WORO OF 

IMAGE 
GET WORO MOVEO 
COMPARE WITH CARD IMAGE 
SKIP WORD STORED OK 
**ERR. WORD NOT STORED OK. 
MODIFY FOR NEXT WORD 



MODIFY FOR NEXT COMPARE 



CHECK IF ALL DONE 
SKIP ALL WORDS CHECKED 

GO GET NEXT CARD 



PART NO. 
PAGE 



TDL02040 
TOL02050 
TDL02060 
TOL02070 
TDL02080 
TDL02090 
TDL02100 
TDL02110 
TOL02120 
TDL02130 
TDL02140 
TDXCTrW 
TDL02160 
T0L02170 
TDL02171 
TDL02172 
TDL02180 
TDL02190 
TDL02200 
TDL02210 
TDL02220 
T0L0223O 
TDL02240 
T0L02250 
TDL02260 
TDL02270 
TDL022B0 
TDL02290 
TO LO 2 300 
TDL02310 
TDL02320 
TDL02330 
TDL02340 
T0L02350 
TDL0236O 
TDL02370 
TDL02380 
TDL02390 
TDL02400 
TDL02410 
TO LO 24 20 
TDL02430 
TDL02440 
T0L0245C 
TDL02460 
TDL02470 
TDL02480 
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CROSS REFERENCE LISTING 



SYMBOL 

CHKSM 

CKLOD 

CKMPV 

CKSUM 

COMP 

C0NT1 

C0N1 

C0N2 

C0W3 

DATA 

DELET 

END 

ERROR 

FIX 

GET 

HOP 

INT 

KECFO 

KOCOO 

KOOOl 

K0010 

K0034 

K0037 

K4C00 

K4000 

LAST 

LOAO 

MOVE 

PACK 

PUT 

ROEVN 

RDIN 

RDODD 

REFIX 

RESET 

SENSE 

SRTRD 

STORE 

STRE 

STRT 

SUM1 

SUMT" 

WCNT 

X 

Y 



VALUE 
0020 
OOAC 
00D9 
0079 
OOOB 
0097 
00',3 
0044 
0045 
00A2 
0"46 
0«E9 
0094 
0O47 
OOCO 
007A 
00 3 A 
004B 
004C 
00 7C 
0086 
0085 
0084 
004 A 
004D 
0021 
0050 
OOBB 
005E 
00C9 
004f ; 
0082' 
004F 
0048 
007 E 
0080 
0058 
0070 
OOBD 
0012 
00A7 
"00D4" 
0049 
0060 
0067 



REFERENCES 

OO12,OC15,O01C 

O0A8,OCAF,0"Bl,0OB4 

O0D6,OCOF,O0El,COE7 

OOAA,orAB t OCAEfOOB5 

0C08.00E2.OOE4 

00 50 

00 50 

0*52, 006A 

0054 

0079 

0061 

0021 

0099 

0065 

O0BF,0OCE,O0DC,OOD3 

OOBC 

O^OC 

00 5A 

0094 

0*17,0058, 0068, 0072, 00 75, 0060, OOCC, OOCF, 00 E0,00E3 

00A7, OOBE, 0007 

00D1.00E5 

tK>B2 

00 97 

00 5B 

0019 

001F,00A6,00E9 



00 3E 
OOBD 
0044 
0053 
00 6F 
00 56 
00 3B 
0059 
0" 64 
0043 
OOBB 
0000 
00 A4 



,0CC2,O0CB,O0CD 
,0048,0060,0060,00 82 
,0C5F, 0067,0069 



,005E 

,006C, 0078, 0096, 00 9A 
,0051,0071,0073 

,0C16,0018,001B 
,00E8 



0055.0C74.0076 

0047,0048,0057,0066 

0047 



DATE 
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PARAGRAPH 

1. PURPOSE . . . 

2. PREREQUISITES. 



2.1 
2.2 



PROGRAM PREREQUISITES 
EQUIPMENT PREREQUISITES 



USE PROCEDURE 



PAGE 
01A 
01A 

01A 



3.1 
3.? 



GFNEPAL INFORMATION 
OPERATING PROCEDURE 



PRINTOUTS (NOME) 
COMMENTS. . . . 



5.1 
5.2 

6. APPENDIX, 

6.1 
6.1.1 
6. 1.2 
6.2 



FUNCTIONS OF ONE-CARD DIAGNOSTIC PROGRAMS 
DESCRIPTION OF ONE-CARD PROGRAMS 



DATA-PATH TEST PROGRAM 
TEST PROCEDURE 
PROGRAM DESCRIPTION 
ADD TEST PROGRAM 

LIST OF TABLES 



04 



Of- 



TABLE 



NORMAL WAITS. 
ERROR WAITS . 



02 
03A 



PURPOSF 

THE ONP-CARO PROGRAMS ARE SHORT TESTS USED TO HELP ISOLATE FAILING 
FUNCTIONS THAT KEEP THE BASIC DIAGNOSTIC LOADER FROM OPERATING 
CORRECTLY. THERE ARE SEVEN ONE-CA"D PROGRAMS, SEQUENCE NUMBERED 
01 THROUGH 07 IN HOLLERITH - HEXADECIMAL CODE IN COLUMNS 79 AND 80. 
EACH PROGRAM IS RUN INDIVIDUALLY AND IS LOADED INTO CORE STORAGE 
USING THE PROGRAM LOAD MODE. REFER TO PARAGRAPH 5., COMMENTS, FOR 
PURPOSE AND DESCRIPTION OF EACH ONF-CARO PROGRAM. 

INCLUDED IN THE APPENDIX, PARAGRAPHS 6.1 AND 6.2, ARE MANUAL ENTRY 
TFST PROGRAMS WHICH ARE LOADED RY MEANS OF THF CONSOLE ENTRY 
SWITCHES,. ONF PROGRAM IS A DATA PATH TEST, AND THE OTHER IS AN 
ADD TEST. THESE PROGRAMS PROVIDE ADDITIONAL AID IN ISOLATING 
MALFUNCTIONS. 

PREREQUISITES 



2.1 



2.2 



PROGRAM PREREQUISITES 

NO ADDITIONAL PROGRAMS ARE REQUIRED. 

EQUIPMENT PREREQUISITES 

1131 CENTRAL PROCESSING UNIT (CPU). 
144? CARD READ/PUNCH OR PAPER TAPE. 
2501 CARD READER (USE ONLY CARDS 1-6) 7=ERR0R. 



USE PROCEDURE 

3.1 GENERAL INFORMATION 

THE FASTEST WAY TO ISOLATE A FAILURE W ITH THE ONE-CARD PROGRAMS 
IS TO STFP THROUGH EACH ONE-CARD PROGRAM LOOKING FOR ONE OF THF 
ERROR CONDITIONS POSSIBLE. 

THE POSSIBLE ERROR CONDITIONS ARE, 

A. STOP AT FRROR WAIT. 

B. INCORRECT REGISTER READINGS AT A NOR"AL WAIT. . 

C. FAILURE TO STOP AT A NORMAL WAIT. 

IF THF ABOVE TRROR CONDITIONS DO NOT OCCUR, IT WILL BE NECESSARY 
JP PELY ON WHATEVER ERROR CONDITIONS APPEAR. 

NORMAL WAITS-300X. NORMAL WAITS HAVE AS THEIR LAST DIGIT THF NUMBER 
OF THE ONE-CARD PROGRAM WHERE THEY OCCUR. FOR EXAMPLE WAIT 3003 
IDENTIFIES A NORMAL WAIT IN ONE-CARD PROGRAM 03. WHEN A PROGRAM HAS 
MORE THAN ONE NORMAL WAIT, REFERENCE TO THE INSTRUCTION ADDRESS 
REGISTER READING IS NECESSARY, TO CORRECTLY IDENTIFY THF WAIT. 

ERROR WAITS - 30FX. THF LAST DIGIT OF AN ERROR WAIT IDENTIFIES THE 
ONE-CARD PROGRAM WHERE WAIT OCCURS. THE NEXT TO LAST DIGIT, F, 
IDENTIFIES THE WAIT AS BEING AN EPROR WAIT. WHEN MORE THAN ONE 
ERROR WAIT OCCURS IN A ONE-CARD PROGRAM, REFERENCE TO THE INSTUCTION 
ADDRESS REGISTER IS NECESSARY TO CORRECTLY IDENTIFY THF ERROR WAIT. 

WHEN AN ERROR INDICATION OCCURS, THE LISTING OF THE PROGRAM BEING 
EXECUTED MUST BE REFERENCED TO DFTERMINE THE CAUSF OF THF FRROR. 
CORRECT LOADING SHOULD BE VERIFIED BY DISPLAYING CONTENTS OF 
LOCATIONS WHERE THF PROGRAM IS STOPEO. THF PROGRA" SHOULD THEN 3E 
RUN IN SI MODF TO LOCATE POINT OF FAILURE. 
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3.2 OPERATING PROCEDURE 

A. PLACE ALL SEVEN ONE-CARD PROGRAMS, FOLLOWFD BY DECK OF BLANK 
CARDS IN 1442 HOPPER AND PRESS START BUTTON. 

B. CLEAR CORE STORAGE TO 33FF AS FOLLOWS, 

1. SET MODF SWITCH TO RUN. 

2. SET CONSOLE ENTRY SWITCHES TO 33FF. 

3. TURN ON STORAGE LOAD SWITCH (ON CE PANEL). 

4. PRFSS START. 

5. PRFSS IMM STOP. 

6. TURN OFF STORAGE LOAD SWITCH (ON CE PANEL). 

C. PRESS IMM STOP KEY. 

D. PRESS RESET KEY. 

E. PRESS PROGRAM LOAD. 

ONE-CARO 01 SHOULD LOAD AND PROGRAM SHOULD STOP AT NORMAL 
WAIT 3001 (1AR = 0002). FROM THIS POINT ON, PROCEED 
ACCORDING TO INSTRUCTIONS GIVEN FOR THE WAIT THE PROGRAM HAS 
STOPPED AT. SEE TABLE 1 FOR NORMAL WAITS, AND TABLE 2 FOR 
ERROR WAITS. 



TABLE 1. NORMAL WAITS 



(CONTINUED) 



TABLE 1. NORMAL WAITS 

NOTE. IN THIS TA3LF SBR=STORAGE BUFFER REG, I AR= INSTRUCTION ADDRESS REG, 
ACC=ACCUMULATOR. 



AND 



******************************************************************************** 

* WAITS * * 

INDICATES / ACTION * 



*************** 

* SRR * IAR * * 

******************************************************************************** 



0002 



0004 



* 

* 3001 
* 

* 
* 

* 3001 
* 
* 
* 

* 3001 * 004E 

* * 

* * 

* * 

* * 

* * 
* *. 



ACCUMULATOR SHOULD READ FOFO. IF OK PRESS START. 

IF NOT FOFO ERROR IS INDICATED. REPAIR IF CAUSE IS CLEAR. 

IF NOT, CONTINUING TEST MAY HELP 

ACCUMULATOR SHOULD READ 080F. IF OK PRESS START. 

IF NOT 080F ERROR IS INDICATED. REPAIR IF CAUSE IS CLEAR. 

IF NOT, CONTINUING TEST MAY HELP. 

DEPRESS IMM STOP, RFSET, AND PROGRAM LOAD BUTTONS TO LOAD CARD 
02. FAILURE OF PROGRAM TO STOP AT THIS WAIT INDICATES FAILURE 
OF AN MDX OPERATION. STEPPING THROUGH PROGRAM IN SI MODE MAY 
HELP LOCATE FAILURE. IF CAUSE OF FAILURE IS CLEAR, REPAIR. 
IF THE FAILURE IS NOT CLEAR CONTINUING MAY HELP TO IDENTIFY 
THE FAILURE. 



* 
* 
* 
* 

* IMM STOP, RFSET, AND PROGRAM LOAD BUTTONS. IF ADD. IS NOT * 

* 003E, AN ERROR HAS OCCURRED. STEP THROUGH PROGRAM IN SING INST * 

* MODE, CHECKING THAT IAR AND ACC DISPLAY THE SAME INFORMATION 

* AND ARE INCREMENTED BY ONE AT EACH STEP. 
* 



* 3002 * 003F * ACCUMULATOR SHOULD READ 003E. IF OK LOAD CARD03 BY PRESSING 

* * ~~ " ~ 



* 3003 * 0021 

* * 

* * 

* * 

* * 

* * 



* 

* 

-* 

* ACC SHOULD READ 0001. IF OK PRESS START. ' * 

* IF ACC IS NOT 0001, AN ERROR HAS OCCURED. STEP THROUGH * 

* PROGRAM IN SI MODE, CHECKING THAT (1) ACC CONTAINS A ONE IN * 

* BIT 0, (2) EACH SRA 1 INSTRUCTION IS EXECUTED PROPERLY, AND 13)* 

* NO BSC Z CAUSES A SKIP UNLESS ACCUMULATOR EQUALS ZERO. * 
.*_ 1 * 



******* 

* WA 
******* 

* SBR 
******* 

* 3003 
* 

* 
* 

* 3003 
* 

* 

* 
* 

* 3003 
* 

* 
* 

* 3003 
* 

* 
* 
* 

* 3004 
* 

* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

*_ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 



********* 

ITS * 
******** 

* IAR * 
********* 



**************************************************************** 



INDICATES / ACTION 



003C 



001E 



3005 



3005 



0025 * 

* 

* 

* 

0030 * 

* 
* 

4 
* 
* 

0033 * 
* 

* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



3004 * 0023 * ACC SHOULD READ 0000. IF CK PRESS START. 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
_* 

* Tooo 

* 
* 
* 
* 

* 004C 
* 

* 
* 
* 

* 



* 
* 

**************************************************************** 

* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

ACC SHOULD READ FFFF. IF CK LOAD CARD 04 BY PRESSING IMM STOP. * 
RESFT, AND PROGRAM LOAD BUTTONS * 

IF ACC IS NOT FFFF, ERROR HAS OCCURRED. SI THROUGH PROGRAM * 
FROM LOCATION 002E. CCM RE RESULTS OF TEST WITH LISTING. * 

. — ^ 

* 
* 
* 
* 
* 
* 



ACC SHOULD READ 0000. IF CK PRESS START. 

IF ACC IS NOT 0000, ERROR HAS OCCURRED. SI THROUGH PROGRAM 

FROM LOCATION 0021. COMPARE RESULTS OF TFST WITH LISTING. 

ACC SHOULD READ OFOF. IF CK PRESS START. 

IF ACC IS NOT OFOF, ERROR HAS OCCURRED. SI THROUGH PROGRAM 
FROM LOCATION 0025. COMPARE RESULTS OF TEST WITH LISTING. 
CHECK FOR SINGLE-BIT OMISSION. TRY SWAPPING APPROPRIATE SLT 
CARDS. (SEE LISTING). 

ACC SHOULD READ FFFF. IF CK PRESS START. 

IF ACC IS NOT FFFF, ERROR HAS OCCURRED. SI THROUGH PROGRAM 

FROM LOCATION 002E. COMPARE RESULTS OF TEST WITH LISTING. 



> ■ 



ACC SHOULD READ FFFF. IF CK PRESS START. 

IF ACC IS NOT FFFF, FRROR HAS OCCURRED. SI THROUGH PROGRAM. 

COMPARE RESULTS OF TEST WITH LISTING. 



*** NOTE *** 

IF NO FRRORS OCCUR, THIS PROGRAM SHOULD RUN CONTINUOUSLY UNTIL * 
STOPPED. IF NO ERRORS OCCUR, LOAD CARD 05 BY PRESSING IMM STOP,* 
PFSET, AND PROGRAM LOAD BUTTONS. 



IF ACC IS NOT 0000, ERROR HAS OCCURRED. SI THROUGH PROGRAM 
FROM LOCATION 001E. REFER TO LISTING. 



PRFSS RESFT THEN START TO CONTINUE. 

MOST LIKELY ERROR WILL BE FAILURE OF PROGRAM TO STOP AT THIS 
WAIT. REFER TO LISTING. REFER TO PARAGRAPH 5.2.5 OF THIS 
DOCUMENT FOR DESCRIPTION OF CARD 05 PROGRAM. 

ACC SHOULD RFAO OFAF. IF OK LOAD CARD 06 BY PRESSING IMM STOP, 
RFSFT, AND PROGRAM LOAD BUTTONS. 

IF ACC IS NOT OFAF, IT INDICATES THAT THE NUMBER OF LOCATIONS 
TFSTPD IS INCORRECT, ERROR MAY BE CAUSED BY ADD FAILURE, WHICH 
SHOULD BE DETECTABLE BY CARD 04 PROGRAM. PRESS START TO 
RESTART PROGRAM. 
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TABLE I. NORMAL WAITS 



(CONTINUED) 



***** 

* 

***** 

* SRR 
***** 

* 300 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 300 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
***** 



********* 

WAITS 
********* 

* IAR 
******** 

6 * 002E 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



INDICATES / ACTION 



**************************************************************** 
* 

* 
* 

***** 
* A. 



* 0007 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
********* 



******************************************** 
SET CONSOLE ENTRY SWITCHES TO 0003 (BUSY, NO 
DSW). PRESS START. PROGRAM SHOULD RETURN TO 
OK PRESS START TO REPEAT TEST OR GO TO STEP 



C. 



E. 



**************** 
T READY SIMULATE 

THIS WAIT. IF 

B. 



IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 - FRROR 
WAITS, FOR APPROPRIATE ACTION. 



SET CONSOLE ENTRY SWITCHES TO 0800 (END OF 
DSW). PRESS START. PROGRAM SHOULD RETURN TO 
OK PRESS START TO REPFAT TEST, OR GO TO STE 



CARD SIMULATED 
THIS WIAT. IF 
P C. 



IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 
WAITS, FOR APPROPRIATE ACTION. 



FRROR 



** 

* 
* 
* 
** 
D* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 

ACC AND ACC EXTENSION SHOULD RFAD FFFF. IF OK GO TO STEP B. * 
IF NOT FFF^, LOAD DOUBLE OP ADD DOUBLE ERROR HAS OCCURRED. * 
SI THROUGH PROGRAM. REFER TO LISTING. 



SET CONSOLE ENTRY SWITCHES TO B003 (COL. RE 
R^AOY SIMULATED DSW). PRFSS START. PROGRAM 
THIS WAIT. IF OK PRESS START TO REPEAT TFST 
D. 



QUEST, SUSY, NOT 
SHOULD RETURN TO 
, OR GO TO STEP 



IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 - ERROR 
WAITS, FOR APPROPRIATE ACTION. 



SET CONSOLE ENTRY SWITCHES TO AN INVALID OS 
THAN 0003, 0800, OR 8003). PRESS START. PRO 
AT FRROR WAIT B=30F6, INDICATING THAT THE P 
SENSES AN FRROR DSW. PRESS START TO RETURN 
(THIS WAIT) TO REPFAT TEST WITH SAME, OR DI 
DSW. 

AFTER DETERMINING THAT CARD 06 PROGPAM REAC 
THE SIMULATFD OSW'S, LOAD CARD 07 BY PRESS I 
RESET, AND PROGRAM LOAD BUTTONS. 



W SETTING (OTHFR 
GRAM SHOULD STOP 
ROGRA" CORRECTLY 
TO WAIT B=3006 
FFFRENT INVALID 



TS CORRECTLY TO 
NG IMM STOP, 



TURN ON INTERRUPT DELAY SWITCH ( ON CE PANEL ). 

PRFSS START. BLANK CARDS SHOULD FEED CONTINUOUSLY THROUGH 

THE RFAD STATION OF THE 1447. 

*** NOTF *** 

THERE ARE NO OTHER WAITS IN CARD 07 PROGPAM IN ORDER TO 
PERMIT SCOPING OF X10 FUNCTIONS. CHANGE NO OP INSTRUCTION 
IN LOCATION 007C TO AN ERROR WAIT (30F7) TO CAUSF PROGRAM 



* 

* 
* 
* 
* 
* 
****************************************************************** 



T" STOP ON ERROR DSW. 

PRESS STOP TO TERMINATE PROGRAM 

TURN OFF INTERRUPT DELAY SWITCH (ON CE PANEL), 



TABLF 2. ERROR WAITS 

NOTF. IN THIS TABLE SBR=STORAGE BUFFER PEG, I AR= I NSTRUCT I ON ADDRESS REG, AND 
ACC=ACCUMULATOR. 



******** 

* WAI 
******** 

* SSR * 
******** 

* * 

* 30F1 
* 



* 

* 
* 

* 30F3 
* 

* 
* 

* 30F3 



TS 

**** 

IAP 

**** 

000 

TO 

004 



is**************************************************************** 

* 
*** 



02 



*** 

* 
6 * 

* 
n * 

* 

* 

* 
4 * 

* 



INDICATES / ACTION 
************************************************************** 

STOPPING AT ANY ONE OF THIS WAITS INDICATES FAILURE OF MDX 
OPERATION. SI THROUGH PROGRAM. IF FAILURE APPEARS AND ITS 
CAUSE IS CLEAR, REPAIR. IF CAUSE OF FAILURE IS NOT CLEAR, 
RUNNING ADDITIONAL ONE-CARD PROGRAMS MAY HFLP IDENTIFY THE 
FAILURE. 



003^ * 



* 

* 

f> * 

* 



* 


10F4 


* 


0014 * 


* 




* 


* 


* 




* 


* 


* 


30F4 


* 


00?C * 


* 




* 


* 


* 




* 


* 


* 




* 

* 


* 


* 
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001F * 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 


30F5 


* 


003 B * 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 


* 




* 


* 



ACC NOT 0000 WHEN TESTED. SI THROUGH PROGRAM CHECKING THAT 
(1) ACC CONTAINS A ONE IN BIT 0, (2) EACH SRA 1 INSTRUCTION 
IS EXECUTED CORRECTLY, AND (3) A SKIP OCCURS WHEN ACC EQUALS 
0000. 

ACC NOT 0000 WHEN TESTED. SI THROUGH PROGRAM FROM LOCATION 
002F. COMPARE RESULTS OF TEST WITH LISTING. 

LDX LONG FAILURE. SI THROUGH PROGRAM. COMPARE RESULTS WITH 
LISTING. 

SU" of SIJMPL AND SUMMI IS NOT EQUAL TO 0000. IF THEIR SUM 
SHOULD EOUAL 0000, DIAGNOSE AND CORRECT TROUBLE. IF THEIR SUM 
SHOULD MOT BE 0000, RUU "ANUAL-ENTRY ADD TFST (PARAGRAPH 6.2). 

SUM OF LOCATIONS 0014 THROUGH 004F Ts NOT 0000. ACC CONTMNS 
OBTAIN'FD SU. (I) RELOAD CARD 05, (?) RUN IN SI MODE THROUGH 
LOCATION 0010, (3) OTSPLAY REMAINDFR OF PROGRAM, AND (4) 
C.OMPA»E RESULTS WITH LISTING. 

IF Ni) FRROR IS EVIDENT, SI THROUGH CHECKSUM LOOP (LOCATIONS 
0012 THROUGH OOIA). 

IF NO ERROR IS FVIDENT, (1) RELOAD CARD 05, (2) SI THROUGH 
L "CAT ION 0008, (3) INSERT WAIT OP IN LOCATION 0011, (4) SET 
70F6 IN LOCATION OOIA, AND (5) PUN CHFCKSU M LOOP USING SI MODE 
FOR LOCATIONS 0011 AND 0013. VERIFY CHECKSUM ADDITION. REPAIR 
ANY FAILURES DISCOVFRED. 

A IOCATION DOES NOT CONTAIN ITS nwN ADDRESS PLUS ONE. PERFORM 
FOLLOWING INSTRUCTION IN SI MODF. ADDRESS OF LOCATION IN ERROR 
WILL BF IN ACC. DISPLAY ERROR LOCATION. IT SHOULD CONTAIN ITS 
r>WN ADDRESS PLUS ONE, AS A RESULT OF EXECUTING A BSI-1 AT THAT 
LOCATION. DIAGNOSE AND CORRECT. 



* 30F6 * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 



002D * 
* 

* 
* 
* 
* 
* 
* 
* 



A. IF PROGRAM STOPS AT THIS WAIT FOLLOWING SETTING OF A VALID 
SIMULATED DSW IN CONSOLF ENTRY SWITCHES (0003, 0800, 8003). 
AN FRROR IN INTERPRETING THE DSW HAS OCCURRED. SI THROUGH 
PROGRAM AND REFER TO LISTING, TO LOCATE CAUSF OF ERROR. 

R. IE PROGPAM STOPS AT THIS WAIT AFTER SETTING AN INVALID 
IN THE CONSOLE ENTRY SWITCHES, THE PROGRAM OPERATED 
CODRFCTLY. PRESS START TO RETURN TO NORMAL WAIT R=3006. 



****************************************************************************** 



** 
* 
* 
* 

** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

** 
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5.2.2 



4. PRINTOUTS (NOT APPLICABLE) 



5. COMMENTS 



THE ONE-CARD DIAGNnSTIC PROGRAMS ARE DESIGNED TO HELP DIAGNOSE 
MALFUNCTIONS THAT OCCUR WHILE ATTEMPTING TO LOAD A PROGRAM WITH THE 
1130 BASIC DIAGNOSTIC L OADER. THERE ARE SEVEN ONE-CARD W^*^. 
EACH ONE-CARO PROGRAM TESTS A SPECIFIC FUNCTION OR GROUP OF FUNCTIONS. 
THE CARDS ARE NUMBERED FROM 01 THROUGH 07 IN HOLLERITH-HEXADECIMAL 
CODE IN COLUMNS 79 AND 90. 

FUNCTIONS OF ONE-CARD DIAGNOSTIC PROGRAMS 

THE sfvEN ONE-CARD PROGRAMS PERFORM THEFFOLLOW ING FUNCTIONS. 



5.2.3 



5.2 
5.2.1. 



A. CARD 01. 

B. CARD 02. 

C. CARD 03. 



D. 



F. 



G. 



CARD 04. 

CARD 05. 
CARD 06. 

CARD 07. 



TFSTS MDX INSTRUCTION AND DATA TRANSFER FROM 
INSTRUCTION ADDRESS REGISTER TO ACCUMULATOR. 
EXECUTES A SIMPLE-ADDITION TEST AND TESTS 
INCREMENTING OF INSTRUCTION ADDRESS REGISTER. 

TESTS BSC Z, SRA 1, LD, STO, AND EOR 
INSTRUCTIONS AND DATA TRANSFER BETWEEN RFGISTERS. 

TESTS LONG FORMAT OF LD, A, STO, LDX, EOR. 
TEST ADDITION OF POSITIVE AND NEGATIVE NUMBERS. 

TESTS ADDRESSING OF LOCATIONS 0050 THROUGH OFFE. 

DETERMINES WHETHER 1131 CPU CORRECTLY 
INTERPRETS SIMULATED DSW'S. 

TESTS LOAD DOUBLE AND ADD DOUBLE INSTRUCTIONS, 
AND SETS UP LOOPS TO ALLOW X10 FUNCTIONS TO BE 
CHECKED WITH AN OSCILLOSCOPE. X 10 ROUTINES ARE 
DIAGNOSTIC LOADER BUT DO NOT STOP ON DSW ERROR. 



DESCRIPTION OF ONE-CARD DIAGNOSTIC PROGRAMS 
CARD-031 PROGRAM 

THE CARD-01 PROGRAM LOADS ACCUMULATOR WITH FOFO FROM LOCATION 
0030 AND STOPS AT WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 
INDICATING 0002 , STORAGE BUFFER INDICATING 3001, AND ACCUMULATOR 
INDICATING FOFO. FAILURE OF INDICATOR TO APPEAR AS DESCRIBED 
INDICATES A POSSIBLE RFAD-IN FAILURE DURING PROGRAM LOAD OR 
FAILURE OF THE LOAD-ACCUMULATOR INSTRUCTION. FOLLOWING 
DEPRESSION OF START PUSHBUTTON BY OPERATOR, PROGRAM LOADS 
ACCUMULATOR WITH 080F FROM LOCATION 0031 AND STOPS AT WAIT WITH 
INSTRUCTION ADDRESS INDICATING 0004, STORAGE BUFFER INDICATING 
3001, ANO ACCUMULATOR INDICATING OSOF. AGAIN, FAILURE IF 
INDICATORS TO APPEAR AS DESCRIBED INDICATES POSSIBLE 
READ-IN FAILURE OR LOAD-ACCUMULATOR FAILURE. 

NEXT DFPRESSION OF START PUSHBUTTON, THF PROGRAM PERFORMS A 
SERIFS OF MDX INSTRUCTIONS AND STOPS AT A WAIT WITH INSTRUCTION 
ADDRESS INDICATING 004E AND STORAGE BUFFER INDICATING 3001. IF 
PROGRAM STOPS AT ANY OTHER WAIT INSTRUCTION, AN MDX FAILURE 
IS INDICATED. 



CARO-02 PROGRAM 

THE CARD-O? PROGRAM TFSTS ADD FUNCTION AND INCREMENTING OF 
STORAGE ADDRESS REGISTER. THE PROGRAM LOADS A CONSTANT OF 
0001 IN ACCUMULATOR FROM LOCATION 003F AND CONTINUOUSLY ADDS 
TH4T s4 mr CONSTANT UNTIL STOPPED BY WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 003E. THF ACCUMULATED TOTAL IS 
DISPLAYED BY ACCUMULATOR INDICATOR AND SHOULD BE 003E. ANY 
p TH p R TOTAL INDICATES AN ADD-FUNCTIDN FAILURE OR INSTRUCTION 
ADDRFSS REGISTER INCREMENT FAILURE 



CARD-03 PROGRAM 

A. 



PART ONE TESTS THE SKIP-ON-ZERO OPERATION ANO SHIFT-RIGHT- 
ONF OPFRATION. 



B. PART TWO TESTS DATA TRANSFER BETWEEN REGISTERS AS FOLLOWS. 

1. DATA TRANSFFR FROM STORAGE BUFFER REGISTER TO 

ARITHMETIC FACTOR REGISTER TO ACCUMULATOR REGISTER. 

? DATA TRANSFER FROM ACCUMULATOR REGISTER TO ACCUMULATOR 

EXTENSION REGISTER AND BACK TO ACCUMULATOR REGISTER. 

3. DATA TRANSFER FROM ACCUMULATOR REGISTER TO 
STORAGE BUFFER REGISTER. 

C. PART THREE TESTS OPERATION FOR FUNCTION. 
PART ONF 

PROGRAM SFTS A I IN ACCUMULATOP-B I T AND THEN TRIES TO 
SK IP_ON-ZERO. AS THF ACCUMULATOR IS NOT ZERO, PROGRAM FALLS 
THROUGH AND SHIFTS RIGHT ONE POSITION. TESTING FOR 
ZER" AND SHIFTING RIGHT ONE IS CONTINUED UNTIL PROGRAM IS 
STOPPED BY WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 
INDICATING 0021. THF ACCUMULATOR SHOULD INDICATE 0001. 
ANY OTHFR ACCUMULATOR INDICATION INDICATES FAILURE OF SRA 1 
or BSC Z. 

AFTER DEPRESSION OF START PUSHBUTTON, PROGRAM PERFORMS A SHIFT- 
RIGHT-HNE OPERATION, ANO SKIPS-ON-ZERO TO A WAIT 0025, STORAGE 
BUFFER INDICATING 3003. ACCUMULATOR SHOULD INDICATE 0000. 



PART TWO 

UPON nEPRFSSING START PUSHBUTTON, PROGRAM PERFORMS A SERIES 
PF A1TERNATE LD AND STO INSTRUCTIONS AND STOPS ON A WAIT 
INSTRUCTION WITH INSTRUCTION ADDRFSS INDICATING 0030 AND 
STORAGE BUFFER INDICATING 3003. ACCUMULATOR INDICATION 
SHOULD BE OFOF, OR DATA-TRANSFER FAILURE IS INDICATEO. 
FAILURE MAY BE OCCURRING DURING A LD OR STO INSTRUCTION. 
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5.2.4 



PART THREE 

PROGRAM TAKES ACCUMULATOR CONTENTS OF OFOF LEFT AT FND OF PART TWO 
AND PERFORMS EOR OPERATION WITH CONSTANT FOFO. THE FFFF RESULT 
IS STORED AT SYMBOLIC LOCATION KFFFF, AND PROGRAM STOPS ON WAIT 
INSTRUCTION WITH INSTRUCTION ADDRESS INDICATING 0033. 
ACCUMULATOR INDICATOR SHOULD INDICATE FFFF, OR EOR FAILURF 
IS INDICATED. 

AFTER DFPRFSSING START PUSHBUTTON, PRHGRAM PERFORMS FOR OF 
FFFF IN ACCUMULATOR WITH FFFF CONTAINED AT SYMBOLIC LOCATION 
KFFFF TO SET ACCUMULATOR TO 0000. A SKIP-ON-ZERO OPERATION IS 
THEN ATTFMPTED. IF EOR INSTRUCTION FAILS TO ZERO ACCUMULATOR, 
PROGRAM FALLS THROUGH TO AN ERROR WAIT INSTRUCTinN WITH 
INSTRUCTION ADDRESS INDICATING 0036, STORAGE BUFFER INDICATING 
30F3. IF THE SKIP-0N-7ER0 IS SUCCESSFULLY COMPLETED, THE 
PROGRAM PERFORMS FOR OF 0000 IN ACCUMULATOR AND 0000 AT 
SYMBOLIC LOCATION KOOOO. THE RESULTS OF EOR SHOULD BE 0000. 
PROGRAM TFSTS THAT ACCUMULATOR IS 0000 BY ATTEMPTING SK I P-ON- 
ZERO. FAILURE TO SKIP STOPS PROGRAM AT WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 0039, AND STORAGE BUFFER 
INDICATING 30E3, ACCUMULATOR INDICATOR SHOULD DISPLAY RESULT 
OF FAULTY FOR. 

IF PROGRAM SKIPS, PROGRAM PERFORMS FDR OF 0000 IN ACC WITH 
CONSTANT FOFO IN SYMBOLIC LOC-STION KFOFO. ACC CONTENTS BECOME 
FOFO. AMOTHEP FOR IS PERFORMED WITH CONSTANT 0>=0F STORED IN 
HIGHEST STORAGE LOCATION. PROGRAM STOPS AT WAIT WITH IAR REG 
EQUAL 003C AND SBR RFG EOUAL 3003. ACC SHOULD READ FFFF. ANY 
OTHER READING INDICATES EOR FAILURE. 

CARD-04 PROGRAM 

THE CARD-04 PROGRAM LONG FORMAT OF LD, A, STO, LDX, EOR. THEN 
THE CARD-04 PROGRAM LONG FORMAT OF LD, A, STO, I DX , FOP. THEN 
PART OF THE PROGRAM MAKES UP LONG FORM INSTRUCTIONS THEN 
PEP.FORMS AN LDX LONG OVER AN ERROR WAIT. THE ERROR WAIT WITH 
INSTRUCTION ADDRESS INDICATING 0014 AND THE STORAGE BUFFER 
INDICATING 30F4 SHnwS A FAILURE OF THE LDX LONG FORMAT. 

LONG FORMAT FOR THE RFMAINING TESTS ARE DONE WHEN THE PROGRAM 

MAKES UP CONSTANTS FFFF AND 0000. THFSF CONSTANTS ARE DISPLAYED 

AT NORMAL WAITS. AT EACH OF THFSF WAITS THF REGISTERS REFERENCED 

SHOULD RE FHECKED. IF THE REGISTERS ARE OK, START SHOULD BE 
PRESSFD. 

AFTER THF START IS PUSHED FOLLOWING THF SECOND NORMAL WAIT, 
THE ADD TEST IS STARTED. THE ADO TFST MUST BE STOPPED BY THE 
OPFRATOR. 

THF ADD LOOP PROGRAM ADDS A MINUS ONE (FFFF) TO StJMMI (SUM 
MINUS), ADDS A PLUS ONE (0001) TO SUMPL (SUM PLUS), AND ADDS 
SUMMI AND SUMPL. THE RESULTANT SUM, WHICH SHOULD BE 0000, IS 
USFD TO CHFCK FOR ERROR. IF THE SUM IS 0000, THE LOOP IS 
REPEATED, IF SUM IS NOT 0000, PROGRAM STOPS' AT ERROR WAIT 
WITH IAR REG EQUAL 002C AND SBR RFG FOUAL 30F4. ACC DISPLAYS 
FRROR SUM. 



5.2.5 CARD-OS PROGRAM 

TESTS ADDRESSING OF LOCATIONS 0050 THROUGH OFFE. AFTER INITIAL 
SFTUP, PROGRAM LOADS A WAIT INSTRUCTION AT LOCATION OFFF AND 
LOADS A BRANCH TO SYMBOLIC LOCATION ( CHECK ) IN LOCATION 0000. 
THE PROGRAM FORMS A CHECKSUM OF LOCATIONS 0014 THROUGH 004F. IF 
CHECKSUM IS IN FRROR, PROGRAM STOPS AT WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 001F AND STORAGE BUFFER INDICATING 
30F5. ACCUMULATOR INDICATOR DISPLAYS ERROR CHECKSUM. 

IF CHFCKSUM IS CORRECT PROGRAM LOADS A SERIES OF BSI -1 
INSTRUCTIONS IN LOCATIONS 005C THROUGH OFFE AND BRANCHES TO 
LOCATION 0550 TO EXECUTE THF BSI -1 CHAIN, WHICH CAUSES EACH 
LOCATION FROM 0050 THROUGH OFFE TO CONTAIN ITS OWN ADDRESS PLUS 
ONE. THF PROGRAM THEN STOPS AT A WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 1000 AND STORAGE BUFFER INDICATING 
3005. UPON DEPRESSION OF RESET AND START PUSHBUTTONS PROGRAM 
BRANCHES TO SYMBOLIC LOCATION ( CHFCK). 

THE ( CHECK) ROUTINE DETERMINES IF FACH LOCATION FROM 0050 THROUGH 
OFFE CONTAINS ITS OWN ADDRESS PLUS ONE, KEFPS COUNT OF 
LOCATIONS TESTFD, AND STOPS AT WAIT INSTRUCTION WITH INSTRUCTION 
ADDRFSS INDICATING 004C AND STORAGE BUFFfe INDICATING 3005. 
ACCUMULATOR SHOULD INDICATE OFAF. IF THE CONTENTS OF A LOCATION 
ARF IN FRROR PROGRAM STOPS AT WAIT INSTRUCTION WITH INSTRUCTION 
ADDRESS INDICATING 0038 AND STORAGE PUFFER INDICATING 30F5. 

5.2.6 CARD-06 PROGRAM 

THE CAPO 06 PROGRAM CHECKS THE 1131 CPU FOR CORRECT RESPONSE TO A 
SIMULATFD DSW. THE SIMULATED DSW IS SET IN THE CONSOLE ENTRY 
SWITCHES AND CAN BF A VALID OR INVALID DSW. PORTIONS OF THE CARD 
06 PRHGRAM DUPLICATE SECTIONS OF CARD 1 OF THE 1130 BASIC DIAGNOS- 
TIC LOADER. THERE ARE THRFF VALID OSW'S. 

A. 3003 BITS 0,14 AND 15 ON. COLUMN "EOUESTS, BUSY, AND NOT 
P EADY. 

B. 0003 BITS 14 AND 15 ON. BUSY AND NOT READY. 

C. 0800 BIT 4 ON. END OF CARD (CP COMPLETE). 

AFTER INITIAL SET UP, PROGRAM STO»S AT WAIT WITH IAR REG REAPING 
002E AND SBR REG PEADING OF 3006, TO PERMIT 0°FRATOR TO ENTER A 
SIMULATED DSW IN THE CONSOLE ENTRY SWITCHES. 

AFTER DEPRESSION OF START BUTTON, PROGRAM READS SETTING OF CONSOLE 
ENTRY SWITCHES INTO CORE AND THEN LOADS READING INTO ACC. IF THE 
READING IS B003, THE PROGRAM REREADS THE SWITCHES AND STORES THE 
READING. PROGRAM BRANCHES BACK TO NORMAL WAIT 3006 TO PERMIT ENTPY 
OF DIFFFRENT DSW IF DESIRED. 

IF THF READING IS NOT 80 
TRUE, PROGRAM BRANCHES B 
DIFFERFNT DSW. IF 8003 R 
SWITCHES AND CHECKS FOR 
WORD ( WHICH CONTAINS Nil 
PROGRAM THEN BRANCHES TO 
DSW. IF 0800 CONDITION I 
WITH IAR REG READING OF 
START BRANCHES PROGRAM T 
DSW. IF IT IS DESIRED TO 
WAIT THAT PFRMITS ENTRY 
( 7000 ). 



03, PROGRAM CHECKS 


FOR READING OF 0003. IF 


ACK TO NORMAL WAIT 


3006 TO PERMIT ENTRY OF 


EADING IS NOT TRUE 


PROGRAM READS CONSOLE 


ENTRY 0800. IF TRUE, PROGRAM ADOS 1 TO SUM 


MBER OF )800 CONDITIONS ENCOUNTERED 0. 


NORMAL WAIT 3006 TO PERMIT ENTRY OF NEW 


S NOT TRUE, PROGRAM STOPS AT ERROR WAIT 


0020. ACC DISPLAYS 


ERROR DSW. PRESSING 


NORMAL WAIT 3006 


TO PERMIT FNTRY OF NEW 


LOOP PROGRAM ON A 


SINGLE DSW, THE NORMAL 


OF DSW'S, MAY BE CHANGED TO A NO OP 
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5.2.7 



CARD-07 PROGRAM 

PART ONE OF CARD 07 PROGRAM TESTS LOAD DOUBLE AND ADD DOUBLE 
INSTRUCTIONS. AT THF END OF THE TFST, PROGRAM STOPS AT NORMAL WAIT 
3007, WITH IAR READING OF 0006. THF ACCUMULATOR AND ACCUMULATOR 
EXTENSION SHOULD READ FFFF, OR AN ERROR IS INDICATED. PRIOR TO 
DEPRESSING THE START KEY TO CONTINUE TO PART TWO, OPERATOR MUST 
TURN ON THE INTERRUPT DELAY SWITCH ON THE CE PANEL. 

PART TWO OF CARD 07 PROGRAM IS DESIGNED TO PERMIT SCOPING OF THE 
X10 FUNCTIONS, WHILE CONTINUOUSLY READING CARDS WITH THF 1*42. THE 
READ-CARD ROUTINE IS A DUPLICATE OF READ-CARD ROUTING IN CARD 1 OF 
THE 1130 BASIC DIAGNOSTIC LOADER. 

AFTER INITIAL SET UP, PROGRAM CAUSES CARD TO FFED, RESET OSW, AND 
SENSE DSW. IT THEN CHECKS OSW FOR A 8003 INDICATION. IF TRUE, 
PROGRAM READS CARD COLUMN INTO LOCATION 0000 OR 0001. ODD NUMBERED 
COLUMNS ARE READ INTO LOCATION 0001. EVEN NUMBERED CARD COLUMNS 
ARE READ INTO LOCATION 0000. PROGRAM THEN LOADS 4CC FROM LOCATION 
JUST LOADED, AND BRANCHES BACK TO RESET AND SENSE DSW, AND CHECK 
FOR 8003 DSW AGAIN. 



NOTE 
ALL NUMBERS SHOWN BELOW ARE IN HEXADECIMAL NOTATION. 



IF DSW IS NOT 8003 
PROGRAM BRANCHES B 
WILL REMAIN IN THI 
OR THF 0003 CONOIT 
CONDITION NOT TRUE 
0800 CONDITION. IF 
FEEDING AND REPEAT 
PROGRAM WILL AGAIN 
OPERATOR HAS AN OP 
BY INSFRTING A WAI 



, THE PROGRAM CHFCKS FOR A 0003 DSW. IF TRUE, 
ACK TO SFNSF DSW AND CHECK FOR 8003 DSW. PROGRAM 
S CLOSEO LOOP UNTIL THE 8003 CONDITION IS TRUE 
ION IS NOT TRUE. WHEN THE PROGRAM FINDS THE 0003 
, IT SENSES AND RESETS THE DSW AND CHECKS FOR 

TRUE, PROGRAM BRANCHES TO START ANOTHER CARD 
S THE ENTIRE PROCESS. IF 0003 IS NOT TRUE, 

BRANCH TO START ANOTHER CARD FEEDING. THE 
TION TO STOP THF PROGRAM AT LOCATION 002C 
T. 



APPENDIX 

6.1 DATA PATH TFST PROGRAM 

THIS PROGRAM IS LOADED USING THF CONSOLE ENTRY SWITCHES AND 
TESTS THF ABILITY OF THF 1131 CPU TO TRANSFER ONES AND ZEROES 
BETWEEN THE FOLLOWING REGISTFRS. 

A. FROM STORAGE BUFFER REGISTER TO ARITHMETIC FACTOR 
REGISTER TO ACCUMULATOR REGISTER TO STORAGE ADDRESS 
REGISTER TO INSTRUCTION ADDRESS REGISTER. 

B. FROM ACCUMULATOR REGISTER TO ACCUMULATOR EXTENSION 
REGISTER TO ACCUMULATOR REGISTER. 

C. FROM ACCUMULATOR REGISTER TO STORAGF BUFFER REGISTPR. 

D. FROM INSTRUCTION ADDRESS REGISTER TO STORAGE BUFFER REGISTER. 

E. FROM INSTRUCTION ADDRESS REGISTER TO ACCUMULATOR REGISTER. 
6.1.1 TEST PROCEDURE 

A. CLEAR STORAGE TO WAIT INSTRUCTION 33FF. SEE PARAGRAPH 3.3.6. 

B. ENTFR THF FOLLOWING PROGRAM USING CONSOLE ENTRY SWITCHES. 



LOCATION 
FFFA 

FFF3 

FFFC 
FFFO 

FFFE 
FFFF 

onoo 

0001 

0002 

0003 
0004 



CONTFNT 
0006 

4480 

FFFO 

FFFD 

000? 
COFC 
4480 

000' 
000? 

D0F8 

70FS 

C. 
D. 



MNEMONIC 
LD 

BSI I 



STO 



LD 



BSI I 



STO 



*DX 



COMMENTS 

LOAD ACCUMULATOR WITH CONTENTS CF LOCATION 
0001. 

STORE CONTENTS OF I COUNTER (FFFD) AT 
AODRESS STORED IN LOCATION FFFD. SET I COUNTE 
TO THAT ADDRESS AND ADO ONE TO I COUNTER. 

ADORESS POSITION OF BSI I INSTRUCTION. 

THIS IS THE ACTUAL BRANCH ADDRESS FOR THE 
THE BSI I INSTRUCTION ANO IS REPLACED BY THE 
BSI I. 

STORE CONTENTS OF ACCUMULATOR AT LOCATION 
0001 (SHOULD NOT CHANGE). 

LOAD ACCUMULATOR WITH CONTENTS OF LOCATION 
FFFC. 

STORE CONTENTS OF I COUNTFR (0002) AT 
ADDRESS STORED IN LOCATION 000?. SET I 
COUNTER TO THAT ADDRESS AND AOD ONE TO I 
COUNTER. 

THIS IS ADDRESS POSITION OF BSI I 
INSTRUCTION. 

THIS IS THE ACTUAL BRANCH ADDRESS FOR THE 
BSI I INSTRUCTION AND IS REPLACED BY THE 
BSI I INSTRUCTION. 

STORE CONTENTS OF ACCUMULATOR AT LOCATION 
FFFC ( SHOULD NOT CHANGE ). 

BRANCH TO LOCATION FFFA. 



LOAD INSTRUCTION ADDRESS REGISTER WITH FFFA. 

STFP THROUGH PROGRAM IN SI MODE, CHECKING THAT PROGRAM LOOPS 
PROPF»LY. ANY DATA-PATH FRROP SHOULD RESULT IN THF IMPROPER 
BRANCHING OF A BSI I INSTRUCTION ANO STOPPING AT A WAIT. THE 
LOCATION REFORF THF WAIT SHOULD CONTAIN THE CONTENTS OF 
INSTRUCTION ADDRFSS REGISTER WHEN THE BRANCH OCCURRED. 
LOGICAL RECONSTRUCTION OF THE ERROR SHOULD ISOLATE A DATA- 
TRANSFER ERROR ANO SUGGEST THE CIRCUIT CARD CAUSING THE 
EPRnR. 
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6.? 



6.1.2 



NOTE 

A BRANCH OUTSIDE OF THE PRO 
LOCATION LOADED WITH 33FF I 
HAS OCCURRED. SUBTRACT TWO 
ADDRESS INDICATOR READING A 
LOCATION. THE CONTENT OF LP 
IS THE INSTRUCTION ADDRESS 
WHEN THE ERRONEOUS BRANCH 
BRANCH WAS CAUSED BY A BSI 
FAILIJRF, THE LOCATION JUST 
A VALUE HIGHER BY ONE THAN 
SECOND WORD OF THE BSI I IN 
IS THF CASE, DISPLAY LOCATI 
IS STORED TO DETERMINE IF T 
CHANGED. THE ADDRESSES OF B 
ARE STORED BY THE STO INSTR 
LOCATIONS FEED AND 000? A»E 
BSI I INSTRUCTIONS. STATIC 
DATA TRANSFER ERRORS SHOULD 
TECTED BY THIS MEANS AND BE 
BECAUSE OF THE UNIQUE FAILU 



GRAM INTO A CORE 
NDICATES AN ERROR 

FROM INSTRUCTION 
NO DISPLAY 
CATION DISPLAYED 
REGISTER SETTING 
CCURRED. IF THE 
I INSTRUCTION 
CHECKED WILL HAVF 
THE ADDRESS OF THE 
STRUCTION. IF THIS 
ONS WHERE PROGRAM 
HE LOCATIONS HAVF 
SI I INSTRUCTIONS 
UCTIONS, AMD THE 

STOPED BY THE 
OR INTERMITTENT 

BE READILY DE- 

EASY TO ISOLATE 
RE INDICATIONS. 



ERRORS IN THE DATA PATH PROGRAM SHOULD BE 
CAUSED BY SINGLF BIT FAILURES, OR BY HALF- 
WORD FAILURES. THUS, DROPPED OR ADDED BITS 
CAN BE REFERENCED DIRECTLY TO A CIRCUIT CARD. 
SWAP INDICATED CIRCUIT CARD TO SEE IF FAILURE 
CHANGES. 

THE 0, U, A, AND E REGISTERS' CIRCUIT CARDS 
ARE LOCATED IN ROW 4 OF THE CARD GATF, AND 
ARF INTERCHANGEABLE. 

THE I, R, AND M REGISTERS' CIRCUIT CARDS ARE 
LOCATED IN ROW 6 OR THE CARD GATE, AND ARE 
INTERCHANGEABLE. 

FAILING BIT- 1 ? 3 4 5 6 7 8 9 10 11 12 13 14 15 



COLUMN 



THE FOLLOWING CARDS CONTROL HALF-WORD 
TRANSFERS AND ARF INTERCHANGEABLE. 

M4,M5, M7, L5, AND L6. 



PROGRAM DESCRIPTION 



THE LD INSTRUCTION AT LOCATION FFFA PERFOR 
TING THE ACCUMULATOR TO 000? SO THAT WHEN 
INSTRUCTION IS PERFORMED, A COMPLEMENT BIT 
SENT THROUGH THE ACCUMULATOR, THUS TESTING 
RETURNED TO 000? AT THE END OF THE BSI I I 
IS ACCOMPLISHED BY STORING THF CONTENTS OF 
INTO LOCATION 0001 AFTER THE BSI I INSTRUC 
PHY IS USED DUPING THE BSI I INSTRUCTION A 
SETTING THF ACCUMULATOR TO FFFD WHILE 0002 
DURING THE BSI I INSTRUCTION. A FAILURE OF 
INSTRUCTION THAT AFFFCTS THE ACCUMULATOR W 
BSI I INSTRUCTION TO TAKE ITS ADDRESS c ROM 
THIS LOCATION WILL PROBABLY BF ONE OF THE 
WITH 33FF, THUS CAUSING THF PROGRAM TO STO 



MS THE FUNCTION OF SET- 
THE FOLLOWING BSI I 

PATTERN (FFFD) WILL BE 

THAT THF ACCUMULATOR IS 
NSTRUCTION. THIS TEST 

THE ACCUMULATOR BACK 
TION. THF SAME PHILOS - 
T LOCATION 00000 BY 

IS SENT THROUGH IT 

EITHER BSI I 
ILL CAUSF THF FOLLOWING 

THE WRONG LOCATION. 
CORE LOCATIONS LOADED 
P. 



LOCATION 
0000 

0001 
000? 

0003 
0004 
0005 
0006 
0007 
000"? 



ADD TEST PROGRAM 

THIS PROGRAM HELPS LOCATE AN ADD FAILURE THAT CANNOT BE LOCATED 

WHFN RUNNING CARD 04 OF ONE-CARD PROGRAMS IN SI MODE, BECAUSE 

OF THE DYNAMIC NATURF OF THE PROBLEM. IF THE CONTENTS OF SUMPL 

AND SUMMI DO NOT ADO Tn 0000, THERE HAS BEFN A FAILURE IN 

ADDING 0001 TO SUMPL, OR A FAILURE IN ADDING FFFF TO SUMMI. 

TO DETERMINE WHICH OF THE TWO SUMS IS IN ERROR, IT MUST BE ASSUMED 

THAT PNir OF THEM IS CORRECT IN ORDER TO ARRIVE AT THE VALUE OF 

T"E PTHFP PRIOR TO THE FAILURE, IN OTHER WORDS, TO DETERMINE 

VALUE "E SUMPL PRIOR TO FAILURE. IT MUST PE ASSUMED THAT 

PRESFNT VALUE OF SUMMI IS CORRECT AND VICEVERSA. FXFCUTF 

ADD TEST PROGRAM AS FOLLOWS, 

A OBTAIN VALIJF OF SUMPL PRIOR TO FAILURE BY DETERMINING 
TWO'S COMPLEMENT OF (SU"«I - FFFF). 

B. OBTAIN VALUE OF SU^MI PRIOR TO FAILURE BY DETERMINING 
TWO'S COMPLEMENT OF (SUMPL - 0001). 

C. LOAD FOLLOWING PROGRAM BY MEANS OF CONSOLE FNTRY SWITCHES. 

NOTE 
ALL NUMBERS SHOWN BELOW APE IN HFXADECIMAL NOTATION. 



CONTENTS MNEMONIC 

VALUE OF SUMP 

PRIOR TO FRROR 

O001 



F. 



COMMENTS 
WILL BE IN ACCUMULATOR WHFN ADD OCCURS. 

WILL BE ADDFD TO ACCUMULATOR during ADO. 
USFO TO CHECK ADD OPERATION. 

LOAD ACCUMULATION FROM LOCATION 0000. 

ADD CONTENTS OF LOCATION 0001 TO ACCUMULATOR. 

FOR ACCUMULATOR WITH CDPRFCT ANSWER. 

SKIP ON ZERO TO LOCATION 0008. 

WAIT ON ERROR HAS OCCURRED. 

BRANCH TO LOCATION 0003. 

LOAD INSTRUCTION ADDRESS REGISTER WITH 0003. 

RUN PROGRAM IN RUN MODE. ANY ADD FAILURE WILL CAUSF 

PROGRAM TO STOP AT WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 

INDICATING 0008. 

IE PROGRAM RUNS CONTINUOUSLY WITHOUT ERRORS. 

1. PRESS STOP PUSHBUTTON. 

?. LOAD LOCATION 0000 WITH VALUE OF SUMMI PRIOR TO FRROR. 

3. LOAD LOCATION 0001 WITH FFFF. 

4. LOAD LOCATION 0002 WITH CORRECT SU M OF SUMMI PLUS FFFF. 

5. RUN AGAIN IN RUN MODE. 

LAST PAGE 



COP^cfT 


SUM OF 


ADDITION! 




OOFC 


LD 


80FC 


A 


FOFC 


FOR 


4820 


BSC 2 


3000 


WAIT 


6003 


LDX 


D. LOA 


D INSTt 
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1A 



07<3C 



oooo 





C02F 


0001 





J001 


0002 





T02F 


000} 





3001 


0004 





703F 


0005 





3T : i 


0006 





J0F1 


0007 





10F1 


0008 





40F1 


0009 





10=1 


OOOA 





30F1 


0000 





30F1 


OOOC 





30F 1 


oooo 





iom 


OOOC 





30F1 


0O0F 





31F 1 


0010 





10 Fl 


0011 





10F1 


001? 





»ofi 


0013 





10=1 


0014 





nFi 


0015 





<0F1 


00 lb 





3DF1 


0017 





30FI 


0018 





30F1 


0019 





30=1 


001A 





30F1 


001B 





30F1 


001C 





30F1 


0010 





30F1 


OOIE 





30F1 


001F 





30=1 


oo?o 





30F1 


0021 





30F 1 


00?2 





30F1 


0023 





30F1 


0024 





30FI 


0025 





3DF1 


0026 





30F1 


0027 





31F1 


0023 





33F1 


0079 





30F1 


002A 





30F1 


002S 





30 = 1 


002C 





30F1 


0020 





30 Fl 


007E 





30FI 


002F 





30F1 


0030 





FOFO 


0031 





080F 


003? 





30F1 


0033 





30*1 


0034 





30F1 


0035 





30=1 


0036 





30=1 


0037 





30F1 


0038 





30F1 


0039 





30FJ 


003A 





30F1 


0038 





30F1 


003C 





30F1 


0030 





30F1 


003E 





7O00 


003F 





70O0 


DATF 




01MAY66 


EC NO. 


41549QB 





ABS 












ORG 











* 


TFST MOX AND I TO A 


IRANSFER 




* 


TEST 


READ IN ON PROG. LOAD. 






LD 


/0030 










WAIT 


/0001 


--SFE ACC IS FOFO 






10 


/0031 










WAIT 


/0001 


— SEE ACC IS 080F 






MDX 


/0044 










WAIT 


-15 


»*ERR. 


RESET THEN 


SI 




WAIT 


-15 


»*FRR. 


RFS1T THEN 


SI 




WAIT 


-15 


►«ERR. 


RESET THEN 


SI 




WAIT 


-15 


>»FRR. 


, RtSFT THEN 


SI 




WAIT 


-15 < 


►»FRR. 


RESET THEN 


SI 




WAIT 


-15 


►*FRR. 


RESET THEN 


SI 




WAIT 


-15 


►*FRR. 


RESET THEN 


SI 




WAIT 


-15 


► •ERR. 


RFSET THEN 


SI 




WAIT 


-15 


»*ERR. 


, RESET THEN 


SI 




WAIT 


-15 


»*FRR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESFT THEN 


SI 




WAIT 


-15 


►♦ERR. 


RFSFT THEN 


SI 




WAIT 


-15 


»*ERR. 


RESFT THEN 


SI 




WAIT 


-15 


>»FRR. 


RFSET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESFT THEN 


SI 




WAIT 


-15 


»*FPR. 


RESET THEN 


SI 




WAIT 


-15 


»*ERR. 


RESFT THEN 


SI 




WAIT 


-15 


►»E»R. 


, RESET THEN 


SI 




WAIT 


-15 


►*FHR. 


, RESET THEN 


SI 




WAIT 


-15 


»*ERR. 


, RFSET THEN 


SI 




WAIT 


-15 ' 


►•ERR. 


, RFSFT THEN 


SI 




WAIT 


-15 


►*ERR. 


, RFSET THEN 


SI 




WAIT 


-15 


►*FRR. 


RESET THEN 


SI 




WAIT 


-15 


►*ERR. 


RESFT THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►»ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESFT THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►*FRR. 


, RFSET THEN 


SI 




WAIT 


-15 


►*ERR. 


, RESFT THFN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►*FRR. 


, RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►•tRR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESFT THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►•ERR.1 


, RESET THEN 


SI 




WAIT 


-15 ' 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►*FRR. 


, RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►♦ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




DC 


/FOFO 










DC 


/080F 










WAIT 


-15 


►•ERR. 


RESET THFN 


SI 




WAIT 


-15 


► *FRR. 


RESET THFN 


SI 




WAIT 


-15 


►♦ERR. 


RESFT THEN 


SI 




WAIT 


-15 


►♦ERR. 


RESET THEN 


SI 




WAIT 


-15 


► •ERR. 


, RFSET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


RESET THEN 


SI 




WAIT 


-15 


►•FRR. 


, RESET THEN 


SI 




WAIT 


-15 


►•ERR. 


, RESET THEN 


SI 




WAIT 


-15 


►♦ERR. 


, RESFT THEN 


SI 




MOX 


* . 










MOX 


/004D 









000020 
000030 
000040 
000050 
000060 
000070 
0000 SO 
000090 
000100 
000110 
000120 
000130 
000140 
000150 
000160 
000170 
0001 80 
000190 
000200 
000210 
000220 
0002 30 
000240 
000250 
000260 
000270 
000280 
000290 
000300 
000310 
000320 
000330 
000340 
000350 
000360 
000370 
000380 
000390 
000400 
000410 
000420 
000430 
000440 
000450 
000460 
000470 
000480 
000490 
000500 
000510 
000520 
000530 
000540 
000550 
000560 
000570 
000580 
000590 
000600 
000610 
■000620 
000630 
000640 
000650 
000660 
000670 
000680 
000690 
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PAGE 



0040 





30F1 


004 1 





30F1 


00*2 





10F1 


0041 





38=1 


0044 





/OF 9 


0045 





)0F1 


0046 





30F1 


0047 





10=1 


004 8 





J3F1 


0049 





30F1 


004A 





30F1 


004 8 





30=1 


004C 





30F1 


0040 





3001 


004 E 





2000 


004F 





1000 


0050 




0000 



WAIT 


-15 


♦♦tRR.i 


RESET 


THFN 


SI 


000700 


WAIT 


- 15 


•♦ERR., 


RFSFT 


THFN 


SI 


000710 


WAIT 


-15 


••E««. , 


RESET 


THEN 


SI 


0007?0 


WAIT 


-15 


**?.RR., 


RFSFT 


THEN 


SI 


000730 


MOX 


/003E 










000740 


WAIT 


-15 


••ERR., 


RESET 


THEN 


SI 


000750 


WAIT 


-15 


*»E«R. , 


RFSFI 


THEN 


SI 


000760 


WAIT 


-15 


•♦ERR., 


RESET 


I HEN 


SI 


0007 70 


W*IT 


-15 


»*EkR. ,- 


R = SET 


THEN 


SI 


000780 


WAIT 


-1 5 


••ERR., 


RFSFT 


THEN 


SI 


000790 


WAIT 


-15 


••ERR., 


RESET 


THFN 


SI 


000800 


WAIT 


-15 


**E»R. , 


RFSET 


then 


SI 


000810 


WAIT 


-15 


**F.R». , 


RESET 


ThFN 


SI 


0008 20 


WAIT 


/0001 


--STOP 


HFRF INOICATFS DK 


00OR30 


DC 


/2000 


HfXIOFC IMAL 


NU"RER 


000840 


DC 


/1000 


HFX10ECIMAL 


NUM3FR 1 


000850 


ENO 













000860 
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0000 


C03E 


0001 


8030 


0002 


803C 


0003 


803B 


0004 


803A 


0005 


8039 


0006 


603H 


0007 


8037 


0008 


8036 


0009 


8035 


OOOA 


8034 


OOOB 


8033 


OOOC 


8032 


OOOD 


8031 


OOOE 


8030 


OOOF 


802F 


ooio o 


802E 


ooii o 


9020 


0012 


802C 


0013 


802B 


0014 


802A 


0015 


8029 


0016 


8026 


0017 


8027 


0018 


8026 


0019 


8025 


001A 


8024 


001B 


802* 


ooic o 


8022 


0010 


3021 


001E 


8020 


001F 


801 F 


0020 


801 E 


0021 


8010 


0022 


801C 


0023 


801B 


002*. 


801A 


0025 


8019 


0026 


8018 


0027 


6017 


0026 


8016 


0029 


8015 


002A 


8014 


002B 


8013 


002C 


8012 


0020 


8011 


002E 


8010 


002F 


ROOF 


0030 


800F 


0031 


8000 


0032 


800C 


0033 


BOOB 


0034 


BOOA 


0035 


8009 


0036 


8008 


0037 


8007 


0038 


8006 


0039 


8005 


003A 


8004 


003B 


8003 


003C 


800? 


0030 


8001 


003F 


3002 


003F 


0001 


0040 


FBFF 


OATF 


Q1MAY66 


EC NO. 


415490B 



A8S 






0O0S9O 




ORG 


/OOOO 




000900 




1EST ADO BY 


ONE AND 


INCREMENT 1 COUNTER 


00P910 




LO 


/003F 


AOD /0001 TO ACC. AT EACH 


000920 




A 


/003F 


INST. FROM LOC. /OOOO 


0009 30 




A 


/003F 


TO LOC. /003E. TOTAL 


000940 




A 


/003F 


AT WAIT AT /003E SHOULD 


000950 




A 


/003F 


BE /00J6. 


000960 




A 


/003F 


IF ANSWER WRONG 


000970 




A 


/003F 


1. DISPLAY LOCS. /003F 


000980 




A 


/003F 


/0040 


000990 




A 


/003F 


/0041 


001000 




A 


/003F 


/OOOO. 


001010 




A 


/003F 




001020 




A 


/003F 


2. LOAD OK. CHECK THE 


0010 30 




A 


/003F 


FOLLOWING CARDS 


001040 




A 


/003F 


BY SWAP ♦ RE-RUN 


001050 




A 


/003F 


QUAD ♦ IBM. 


001060 




A 


/003F 


OR SINGLE INSTRUCTION 


001070 




A 


/003F 


FROM 70000 + SEE 


0010BO 




A 


/003F 


WHEN ACC. NOT EQU. 


001090 




A 


/003F 


I COUNTER. 


001100 




A 


/003F 




001110 




A 


/003F 




001120 




A 


/003F 




001130 




A 


/003F 




001140 




A 


/003F 




001150 




A 


/003F 




001160 




A 


/003F 




001170 




A 


/003F 




001180 




A 


/003F 




001190 




A 


/003F 




001200 




A 


/003F 




001210 




A 


/003F 




001220 




A 


/003F 




001230 




A 


/003F 




001240 




A 


/003F 




001250 




A 


/003F 




001260 




A 


/003F 




001270 




A 


/003F 




001280 




A 


/003F 




001290 




A 


/003F 




001300 




A 


/003F 




001310 




A 


/003F 




001320 




A 


/003F 




001330 




A 


/003F 




001340 




A 


/003F 




001350 




A 


/003F 




001360 




A 


/003F 




0013T0 




A 


/003F 




001380 




A 


/003F 




001390 




A 


/003' 




001400 




A 


/OC'JF 




001410 


• ' 


A 


/0J3F 




001*20- " 




A 


A>03F 




001430 • 




A 


/003F 




001440 




A 


/003F 




001450 




A 


/003F 




001460 




A 


/003F 




001470 




i 


/003F 




001480 




A 


/003F 




001490" 




A 


/003F 




001500 




A 


/003F 




001510 




A 


/003F 




001520 




A 


/003F 




001530 




WAIT 


/0002 


— SEE ACC. IS 003E 


001540 




DC 


/0001 


CONSTANT ADDED AT 0-3D 


001550 




OC 


/F8FF 


CONSTANT TO CHECK CRD READ 


001560 

PROG ID 
PAGE 
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2A 
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0041 0000 

004E 2000 

004F 0300 

0050 0000 



BSS 


/O 


DC 


/2000 


DC 


/0800 


END 






HEXIDECIMAL NUMBER 
HEXIOECIMAL NUMBER 2 



001570 
001580 
001590 
001600 



CROSS REFERENCE LISTING 
SYMBOL VALUE REFERENCES 



OATF 
EC NO. 



01MAV66 
415*908 
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PART NIC. ?101?60 
PAGE 4A 



02BC 



0000 





C03C 


0001 





4820 


0002 





1801 


0003 





4820 


0004 





1801 


0005 





4820 


0006 





1801 


000 7 





4820 


0008 





1801 


0009 





4820 


OOOA 





1801 


0006 





4820 


OOOC 





1801 


0000 





4820 


OOOF 





1601 


OOOF 





4820 


0010 





1801 


0011 





4820 


0012 





1801 


0013 





4820 


00 1* 





1301 


001 5 





4820 


0016. 





1801 


001 7 





4820 


0018 





1801 


0019 





4820 


001 A 





1801 


ooi e 





4820 


001C 





1801 


001 





4820 


OOIE 





1301 


001 F 





48?0 


0020 





30 03 


0021 





1801 


0022 





4$20 


002 3 





30F3 


002.4 





3003 



0025 





C018 


0026 





0008 


002 7 





C0D7 


0028 





0007 


0029 





C006 


002A 





1804 


002B 





0003 


002C 





C0D2 


0020 





0002 


002E 





com 


DATfc 




01MAY66 


EC NO. 


41S4908 



ABS 

ORG /OOOO 
« CHECK 8SC Z, S«A 1 , AND EOR. 
» LOAD CARO AND RON PROGRAM. PROGRAM SHOULD STOP 

* AT WAITS FOLLOWED BY — FQR SEEING THAT THF RFGS. 

* SHOWN ARE CORRECT, DIFFFRENCFS INDICATE FRRORS. 

* WAITS FOLLOWED BY ** OCCUR ONLY ON ERRORS. 

* THE FIRST TEST IS OF SRA 1 ANO BSC Z. 

* A ONE IS PLACED INTO THE BIT ZERO POSITION AND 
» TESTED AT EACH TIME BY A BSC Z WHICH SHOULD NOT 

IS SHOWN AFTER EACH SRA I. 
8000 

SHOULD HOT SKIP 
4000 

SHOULD NOT SKIP 
2000 

SHOULD NOT SKIP 
1000 

SHOULD NOT SKIP 
0800 

SHOULD NOT SKIP 
0400 

SHOULD NOT SKIP 
0200 

SHOULD NOT SKIP 
0100 

SHOULD NOT SKIP 
0080 

SHOULD NOT SKIP 
0040 

SHOULD NOT SKIP 
0020 

SHOULD NOT SKIP 
0010 

SHOULD NOT SKIP 
0008 

SHOULD NOT SKIP 
0004 

SHOULD NOT SKIP 
0002 

SHOULD NOT SKIP 
0001 

SHOULD NOT SKIP 
-- I EOU. 0021 A EOU. 0001 
ERROR, RESET THEN SI, SEE EACH INST. 

PRESS START 
0000 
SHOULO SKIP 
**ERR. A SHOULO BE ZERO 
— I FOU. 0025 A EOU. 0000 

RESFT THEN SI, SEE EACH INST. 

PRESS START 
OK FROM 0000 TO /0025 

* BSC t SKIPS ONLY WHEN ACC = 0000 

» SPA 1 OK FOR ONE BIT IN AMY POSITION 
♦BEGIN TEST OF TRANSFERS OF 8-0-A-M 

* ANO A-U-A AND A-B 

* THE CONTFNTS OF ACC. IS SHOWN AFTER EACH CHANGE 

FOFO 



OFOF 



* SKIP 


THE ACC. 


LO 


K8000 


BSC 


Z 


SRA 


I 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


SRA 


1 


BSC 


z 


WAIT 


/0003 


• 


ERROR, 


• 


OK 


SRA 


1 


BSC 


z 


WAIT 


-13 


WAIT 


/0003 


* 


ERROR, 


* 


OK 


*0K. SHOWS 


I CNTR. C 



LD 


KFOFO 


STO 


/FFFF 


LD 


/FFFF 


STO 


/OOOO 


LO 


/OOOO 


SRA 


4 


STO 


/FFFF 


LD 


/FFFF 


STO 


/OOOO 


LO 


/OOOO 



001630 
001640 
001650 
001660 
001670 
001680 
001690 
001700 
001710 
001720 

0017 30 
001740 
001750 
001760 
001770 
001780 
001790 
001800 
001810 
001820 
001830 
001B40 
001850 
001860 

0018 70 
001880 
001890 
001900 
001910 
001920 
001930 
001940 
001950 
001960 
001970 
001980 
001990 
002000 
002010 
002020 
002030 
002040 
002050 
002060 
002070 
002080 
002090 
002100 
002110 
002120 
002130 
002140 
002150 
002160 
002170 
002180 
002190 
002200 
002210 
Q02220 
002230 
002240 
002250 
002260 
002270 
002280 
002290 
002300 



PROG ID 
PAGE 



002F 3003 



0030 





FOOD 


0031 





OOOO 


003? 





3003 


0033 





F008 


0034 





4820 


0035 





30F3 


0036 





F009 


003 f 





4820 


0038 





30F3 


0039 





F004 


003A 





F0C4 


003B 





3003 


003C 





70F1 



003D 





8000 


003E 





FOFO 


003F 





FFFF 


0040 





OOOO 


0041 




OOOO 


004F 





2000 


004F 





0040 


0050 




OOOO 



WAIT /0003 --I EOU. 0030 A EOU. OFOF 

* IF ERROR, LOAO I CTR. /00?5, THEN SI AND 
«SEf THAT REGS. AS SHOWN FOR EACH INSTRUCTION. 

» QUAD CARDS GATE A2 ROWS 4,5 

• IBM CARDS GATE A2 ROWS 6,7 
-- 0-1 2-3 4-5 6-7 8-9 10-11 12-13 14-15 

■ -- C D E F G H J K 

IF OK , PRESS START 



* BIT POS. 
» CARD COL. 

• 

* TEST FOR 

FOR 

STO 

WAIT 

EOR 

BSC 

WAIT 

EOR 

asc 

WAIT 
EOR 
FOR 
* 

WAIT 

* ] 
MDX 

* 

* NO ERROR 

* COPRECTL 

* THAT EOR 

* THAT ACC 

* POSITION 
» INSTRUCT 
K8000 DC 
KFOFO DC 
KFFFF DC 
KOOOO DC 

BSS 
DC 
DC 
END 



KFOFO 
KFFFF 
/0003 
KFFFF 

7 

-1 3 
KOOOO 

z 

-13 

KFOFO 

/FFFF 

L 
/0003 
F ERROR P 
/002E 
OK 
S ON THIS 
Y FROM COR 
WORKS R IG 
. WILL SHI 
. THAT LO, 
IONS OK. I 
/8000 
/FOFO 
/FFFF 
/OOOO 
/D 

/2000 
/0040 




SET ACC TO FFFF 

STORE IT 
--1 EOU. 0033 A EOU. FFFF 

CLEAR ACC TO OOOO 

SHOULO SKIP 
**FRR. ACC SHOULO BE OOOO 

ACC SHOULD STAY OOOO 

SHOULO SKIP 
*«ERR. ACC SHOULD 8F OOOO 

ACC SHOULO GO TO FOFO 

ACC SHOULD BE FFFF 
OC. /FFFF SHOULD 3E OFOF 

--I EOU. 00?C A EOU. FFFF 
UT IN SI MODE ANO START 

TEST ON THIS CARO COMPLETE. 

TEST SHOW ALL BITS TRANSFER 

E-B-D-A-H AND A-U- A-D-B-CORF . 

HT. THAT BSC Z WORKS RIGHT. 

FT A ONE BIT RIGHT FROM ANY 
STO, EOR, 8SC Z, SRA 1, WAIT 
CNTR. STEPS FROM /OOOO TO/003C 



HEXIDECIMAL NUMBER 
HEX10ECIMAL NUMBER 3 



002310 
002320 
002330 
002340 
002350 
002360 
002370 
002380 
002390 
002400 
002410 
002420 
002430 
002440 
002450 
002460 
002470 
002480 
002490 
002500 
002510 
002520 
002530 
002540 
002550 
002560 
0025 70 
002580 
002590 
002600 
002610 
002620 
002630 
002640 
002650 
002660 
002670 
002680 
002690 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


KFFFF 


003F 


0031,0033 


KFOFO 


00 IE 


0025,0030,0039 


KOOOO 


0040 


0036 


K8000 


0030 


0000 



ABS 

* TEST LONG FORMAT OF LO A STO LDX FOR. 
» THFN- 

» TEST ADO OF POSITI 

* A COMPREHENSIVE TE 

* EACH PASS. A PASS 

* VERIFY CORRECT LOP 

* PROGRAM FORMS CONT 

* TO EXIT- PRESS RES 



02BC 






ORG 


/OOOO 


0000 


C013 




LO 


K4000 


0001 


1804 




SRA 


4 


0002 


0012 




STO 


K0400 


0003 


F012 




EOR 


LD 


0004 


O011 




STO 


LD 


0005 o 


COOF 




LO 


K0400 


0006 


*012 




EOR 


EOR 


0007 


0011 




STO 


FOR 


0008 


cooc 




LO 


K0400 


0009 


POll 




FOR 


STO 


OOOA 


0010 




STO 


STO 


000* 


C009 




LO 


K0400 


OOOC 


F011 




FOR 


A. 


0000 


0010 




STO 


A 


oeoF o 


C006 




LO 


K040& 


OOOF O 


*001 




EOR 


Lor 


0010 o 


0000 




STO 


LDX 


0011 00 


64000016 


L9X 


LDX L 


LD 


0013 


30F4 




MA IT 


-12 


0014 


4000 


K4000 


OC 


/4000 


0015 


0400 


K0400 


OC 


•0400 


0016 00 C4000031 


LO 


LO L 


KFOFO 


0018 


1904 




SRA 


4 


0019 00 


F4000031 


EOR 


EOR I 


KFOFO 


Q01B 00 


D400002F 


STO 


STO L 


KFFfF 


0010 


3004 




WAIT 


/0004 


001F 00 


14000030 


A 


A L 


K0C01 


002O 


0000 




STO 


SUMPL 


0071 


000 B 




STO 


SUMMI 


0022 


3004 




KAIT 


/C-004 


0023 


C009 


BEGIN 


LO 


SUMMI 


0024 


BOOA 




A 


KFFFF 


0025 


0007 




STO 


SUMMI 


0026 


C007 




LD 


su«n- 


0027 


8008 




A 


KOMI 


0028 


0005 




STO 


SUMPL 


0029 


8003 




A 


SUHMI 


002A 


4820 




BSC 


I 


002 a 


30*4 




WAIT 


-12 


002C 


70*6 




MOX 


BEGIN 


002D 


0000 


SUMMI 


DC 


/OOOO 


00?F 


0000 


SUMPL 


DC 


/OOOO 


002F 


0000 


KFFFF 


DC 


/OOOO 


0030 


0001 


KOOOl 


OC 


/0001 


0031 


*0F0 


KFOFO 


DC 


/FOFO 


003? 


001C 




BSS 


/1C 


004 E 


2000 




OC 


/2000 


004F 


0O20 




OC 


/0020 


0050 


0000 




END 






VE AND NEGATIVE ONES. 

ST OF ADO IS PERFORMED ON 

TAKFS ABOUT 4 SECONDS. 
PING BY SINGLE INSTRUCTION. 
INUOUS LOOP. 
ET ♦ PROGRAM LOAO. 



MAKE LONG FORM INSTRUCTIONS 



BRANCH TO TEST LONG FORM. 
»»ERR. LDX FAILED 



BEGIN LONG FORM TEST 



— SEE ACC. EOO. FFFF 

CLEAR SUM PLUS LOCATION 
CLEAR SUM MINUS LOCATION 

— SEE ACC. EOU. OOOO 
LOAO SUM OF MINUS ONES 
ADD MINUS ONE TO IT 
STORE SUM OF MINUS ONES 
LOAD SUM OF PLUS ONES 
ADD PLUS ONE TO IT 
STORE SU« OF PLUS ONFS 
ADD SUMMI TO SUMPL 
SHOULO ALWAYS SKIP 

**ERR. ACC NOT ZERO 



HEXIDECIMAL NUM86R 
HEXIDECIMAL NUMBER 4 



002720 

002728 

002729 

002730 

002740 

002750 

002760 

002770 

002780 

002790 

002791 

002792 

002793 

002794 

002795 

002796 

007797 

002798 

002799 

007800 

007801 

002802 

002803 

007804 

007805 

007806 

002B07 

002808 

002809 

002810 

002812 

002813 

007814 

002815 

002816 

002840 

002841 

002860 

002870 

002880 

002890 

002900 

002910 

002920 

002930 

002940 

002950 

002960 

002970 

002980 

002990 

003000 

003010 

003020 

003030 

003040 

003050 

003060 

003070 . 
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CROSS RFFFRENCF LISTING 

REFERENCES 

OOOC, 000 D 

002C 

000b t 0007 

001B.0024 

0016.0019 

001E.0027 

0002,0035, 0008, OOOB.OOOE 

0000 

0003, 000*, 0011 

00 OF, 0010 

OOO^.OOOA 

0021.0023,0025,0029 

0020,0026,0028 
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CARC 05 



SYMBOL 


VALUF 


A 


001F 


BEGIN 


002 3 


EOR 


0019 


KFFFF 


Q02F 


KFOFO 


r»0 31 


K0001 


00 30 


KO^OO 


0015 


K4000 


0014 


ID 


00 lh 


LOX 


0011 


STO 


001? 


SUMMI 


002D 


SUMPL 


002F 



028C 



0000 

0001 
000? 
0003 
000* 
0005 
0006 
0007 
0008 
0009 
OOOA 
000 H n 
OOOC 
0000 
OOOF 

000 F 

ooio oo 

0012 

0013 

0014 

0015 

0016 

0017 

001 fl 
0019 
001A 
001B 
00 1C 
0010 
001E 
001F 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002A 
002B 
002C 
00? D 

002 E 
002F 
0030 
0031 00 

003 3 

0034 

0035 

0036 
003 7 
0033 
0039 
003A 

0O38 
003C 






3 



o 










3 









C0?2 

1<»02 

F02F 

OOOC 

002C 

C010 

1802 

F035 

0334 

C91A 

1804 

F005 

POO* 

C018 

P0F1 

C03B 

040000FF 

C015 

aooo 

0013 
COFO 
800A 
OOEB 
FOOF 
4820 
70F7 

C30C 
4.820 

30F5 

700B 
OOOC 

oooc 

0001 
5000 
1000 
FOOO 
40FF 
70 3 A 
80K 

ooft 

20 30 

C0F7 

IB OR 

0005 

OOIO 

1810 

D0F9 

C0F4 

04000050 

COFE 

80EC 

OOFC 

FOOA 

4820 

70F7 

7016 

30F5* 



A3S 

ORG 

TEST THAT L'ICS. C050 THRU FFF CAN BF AODRFSSED 
PROGRAM SHOULD STDP AT LOC. OFFF WITH 8 300A 
PRESS PFSET AND START. PROGRAM THEN SHOULD STOP 
AT IOC. 004A WITH 8 30CA ANO ACC. OFAF WHICH 
IS THF NUMBER OF LOCATIONS TFSTFO. PROGRAM 
CAN BE RF-RUN BY PRESSING START. 



M'101 LO 
SRA 
E.OR 
STO 
STO 
LO 
SRA 
EOR 
STO 
LD 
SRA 
FOR 
STO 
LO 
STO 
LO 

STWT STO 
ID 

M003 A 

STO 

LD 

A 

STO 

EOR 

8SC 

MOX 

LO 

BSC 

WAIT 

MOX 

nc 

DC 
K0001 QC 
KBGIN DC 
K1000 DC 
KFOOO DC- 
KBSI BSI 



1000 



C0N1 
COM3 
SUMC 
SUML 
RSTR 



COO? 
80E4 



MOX 
A 
DC 
OC 
LD 
SRA 
STO 
STO 
SRA 
STO 
LD 
STO 
LD 
A 

STO 
EOR 
BSC 
MOX 
MOX 
WAIT 
* OOES NOT 
CHECK LD 
A 



STLN 



K 

2 

STLN 

STMT 

STLN 

•CI 000 

2 

CHCK 

CHCK 

KFOOO 

4 

STWT»1 

STWT*l 

C0N1 

MODI 

KWAIT 

/OOFF 

SUMC 

M0D3«1 

SUMC 

M003 

K0001 

M003 

CON 3 

I 

HOD 3-1 

SUMC 

2 

-11 

RSTR 

/OODC 

/QODC 

/0001 

/5O0P 

/1000 

/FOOO 

-1 

CHECK-MODI 

eG IN-MOD 3 

/OOFC 

/2030 

KBGIN 

8 

STLN+1 

CHCK»1 

16 

SU"I 

KBSI 

/0050 

STlNM 

K0001 

STIN»1 

STWT+1 

I 

STLN-1 • 

/005"0 

-11 



PROGRAM REPLACES THIS 



MAKE UP LONG INSTRUCTIONS 



MODIFY LOCATION 0000 
PUT WAIT INTO /OFFF 
FORM CHECK SUM 



SHOULD SKIP 

••ERR. SUM SHOULD BE 0000 

USED TO MAKE CHE.CK SUM 
USED TO MAKE CHECK SUM 



LOAD ACC. TO 5000 
SHIFT TO /0050 
RESTORE 
RESTORE 
ACC = /OOOO 
RESTORE 
PUT BSI-1 INTO CORE 



MODIFY STORE ADDRESS 

SKIP WHEN LOC. OFFE STORED 



RUN SERIFS OP BSl-1 STORED 
_ 4 , **EPR. ADDRESS PLUS ONE 

FOUAL ADRFSS OF LOCATION TESTFD. 

CHCK+l LOAD THF ADDRESS BEING 

K0001 TESTFD ANO ADO ONE. 
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003100 

003110 

003120 

00 3 1 30 

003140 

003150 

003160 

003170 

003180 

003190 

OC3200 

003210 

0032 20 

00 32 30 

003240 

003250 

00 3260 

003270 

003280 

003290 

003300 

003310 

003320 

0033 30 

003340 

003350 

003360 

003370 

003380 

003390 

003400 

003410 

003420 

003430 

003440 

003450 

003460 

003470 

003480 

0Q3481 

003490 

003500 

003510 

003520 

003530 

001540 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 

003700 

003T10 

003720 

003730 

003740 

003750 

003760 
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PART NO. 2191260 
PAGE ?A 



ONF-CARD DIAGNOSTIC 


PROGKAhS 




CARO OS 








0030 


00 


F 4000050 


CHCK 


FOR L 


/0050 


003F 





4820 




BSC 


2 


0040 





70F9 




MOX 


CHECK-1 


0041 





C0F7 




10 


SUML 


0042 





8 ODE 




A 


K0001 


0043 





OOFS 




STO 


SUML 


0044 





C0F9 




ID 


CHCK+1 


0045 





8009 




A 


K0001 


0046 





OOF 7 




STO 


CHCK+1 


0047 





F0C9 




FOR 


STWT*1 


004 « 





4820 




BSC 


7 


0049 





70 c l 




POX 


CHCK-? 


004 A 





CODE 




10 


SUML 


0048 





3005 


KUAIT 


WAIT 


/0005 


004C 





7000 




HOX 


RSTR 


004D 





08FF 




DC 


/08FF 


004E 





2000 




DC 


/2000 


004 F 





0010 


BGIN 


oc 


/0010 


0050 




0000 




FND 






COMPARE WITH CONTENTS. 
SHOULD BF 7FR0 AND SKIP 
ERROR, STOP ♦ SING. INST. 

FORM SUM OF = IOCS. TESTED 

MODIFY TO TEST NEXT IOC. 



CHFCK IF ALL TESTED 
SKIP, ALL LOCS. TESTED 
GO CHECK NEXT LOCATION 
LOAD SUM OF NUMBER TESTEO. 
-ACC. EOU. OFAF IS NUMBER 
TESTED. 
USED TO MAKE CHECK SUM 
HEXI0EC1MAL NUMBER 
HEXIOECIMAL NUMBER 5 



003770 
003780 
003790 
OC3800 
003810 
003820 
003830 
0038*0 
003850 
003860 
00 38 TO 
003880 
003890 
003900 
003910 
003920 
003940 
003950 
003960 



ONE -CARD DIAGNOSTIC PROGRAMS 
CAPO 05 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


BGIN 


004F 


CMCK 


00 3D 


CHECK 


003B 


COM 


0026 


CON 3 


0027 


KBGIN 


0022 


KBSI 


0025 


KFOOO 


0024 


KWAIT 


004B 


K0001 


0021 


K1000 


0023 


MODI 


0000 


M0D3 


0013 


RSTR 


00 2 A 


STlN 


0031 


STrtT 


0010 


SUMC 


0028 


SUML 


00? t ' 



REFERENCES 

0027 

0007,0008,0020, 0036,0044,0046,0049 

0026,0040 

0000 

0018 

002A 

0030 

0009 

OOOF 

00 16, 0034, 003C, 0042, 0045 

0000,0005 

OOOF, 0026 

001 3, 00! 5, 001 7, 001 A, 0027 

001E.004C 

0002, 0004, 002C, 0033, 0035, 0038 

0003, 0008, OOOC, 0036, 004 7 

0012,0014,0018 

002F, 004 1,004 3, 004 A 



DATE 
EC NO. 



01MAV66 
4154903 
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029C 



OOOO 





r.o?4 


0001 





1304 


000? 





F024 


000? 





no2l 


0004 





002? 


0005 





C023 


0006 





1901 


0007 





F034 


0008 





0933 


0009 





C014 


OOOA 





1808 


0001 





F031 


oooc 


n 


0030 


OOOD 


o 


701E 


OQOF 


a 


0000 


OOOE 


n 


0000 


ooia 





0000 


0011 





0000 


0012 





0000 


0013 





0000 


0014 


n 


0000 


0015 





0000 


0016 





0000 


0017 


o 


1000 


0018 





0000 


0019 





3000 


OOIA 





1000 


001P 





0000 


OOIC 





0030 


001D 





7O0F 


001F 





d*oo 


001F 





OB00 


0020 


n 


8003 


0021 





8000 


0022 





0001 


0023 





0000 


0024 





nooo 


0025 





4000 


00?6 





002Q 


0027 





3000 


002 9 


9 


0004 


0029 





2S0B 


002A 





0000 


002B 





F0F3 


002C 


n 


30F6 


0020 





3006 


OOIE 





0*F7 


002 F 





CO e 8 


003O 





FOEF 


0031 





4820 


0032 





700F 


0033 





98F0 


0034 





COEF 


0035 





FOEC 


0036 





OOEP 


0037 





4820 


0038 





70 F 4 


0039 





C0C6 


003A 





1808 


003 B 





F0C5 


003C 


n 


C.004 


0030 





OOFS 


DATE 




01MAV66 


EC MC 


I. 


4154908 



* TES 
» USI 

* THI 

* EXC 
START 



ENDCK 
CHKSM 
K.0800 
K8003 
K8000 
K0001 

RDIN 

PDSW 

SENSE 

COUNT 
ERROR 

SRTRf) 



STORE 



ABS 

ORG 
T OF LC 
NG BIT 
S PROG. 
EPT FOR 

ID 

SRA 

FOR 

STO 

STO 

LO 

SRA 

FOR 

STO 

LO 

SRA 

EOR 

STO 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 

MOX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

OC 

DC 

DC 

EOR 

WAIT 

WAIT 

XIO 

LC 

FOR 

esc 

MOX 

XIO 

LD 

EOR 

STO 

BSC 

MDX 

LO 

SRA 

FOR 

DC 

OC 



AOER CARD 1 FUNCTIONS 

SWITCHES FOR OSW ♦ FOR COLUMN DATA 

IS IDENTICAL TO CARD 1 FROM ID TO 4C 

XIO COMMANDS. 



ROIN+I 

4 

RDSW+1 

RDIN+1 

RDSW+1 

SENSF+1 

1 

StORE 

STORE 

CHKSM 

8 

ST0RE*1 

STORE* I 

SRTRD 























SRTRD 

/B800 

/0800 

/8003 

/8000 

/0001 

/OOOO 

/OOOO 

/AOOO 

SENSF 

/3000 

/0004 

/2808 

/OOOO 

K0800 

-10 

/6 

RDSW 

SENSE 

K8003 

I 

CONU 

RDIN 

RDIN 

KO0P1 

RDIN 

Z 

SRTRD 

START 

8 

START*! 

/C004 

/O0F5 



SET UP I/O CONT. COMMANDS 



MAKE UP STORE LONG 



MAKE UP ADOR. FOR STO LONG 



RD SMS. INTO IOCS. OR 1 
/3A00 SET BY PROGRAM 
RO SWS. INTO LOC. SENSE 
/3A00 SET BY PROGRAM 
SENSE DSW CONTROL COMMAND 



RESTORE ACC. TO OSW 
**ERR. STOP PSW NOT RIGHT 
TO LOOP, REPLACE MA1T 
RFAD SWITCHES INTO SENSE 
LOAD BIT SMS. INTO ACC. 
CHECK BITS 0,14*15 ONLY 
SKIP IF BITS 0,14*15 ONLY 
CONTINUE DSW ANALYSIS 
READ BIT SWITCHES INTO 0,1 

SWITCH READ IN AREA, EVEN 
TIMES IN ODD IN 1 
SKIP 2 WORDS READ 

GET FIRST WORD 
SHIFT IT 

EOR WITH SECOND WORD 
STORE LONG AT 4D 
SET UP BY PROG. 



003990 
004000 
004010 
004020 
004030 
004040 
004050 
004060 
004070 
004080 
004090 
004100 
004110 
004120 
0C4130 
004140 
004150 
004160 
004170 
004 1 80 
004190 
0C4200 
004210 
004220 
004230 
004240 
004250 
004260 
004270 
004280 
00*290 
004300 
004910 
004320 
004330 
004340 
004350 
004360 
004370 
004380 
004390 
004400 
00*410 
004420 
004430 
004*40 
004*50 
004*60 
004*70 
00**80 
00**90 
00*500 
00*510 
004520 
00*530 
00*5*0 
00*5 50 
00*560 
00*570 
00*580 
00*590 
00*600 
00*610 
004620 
00*630 
00*640 
0C4650 
004660 



PPOG ID 
PAGE 



OOiF 


n 


COFF 


ID 


STORF*l 


001F 





ac 1 ? 


A 


K0001*l 


004 





00 FC 


STO 


ST0RF*1 


004 1 





70FB 


MDX 


SRTRO 


004? 





FODF 


CONT I EOR 


K3000 


004 1 





4070 


BSC 


I 


0044 





7001 


MDX 


CONT? 


00fr5 


n 


7067 


MOX 


SRTRD 


0046 





C0F1 


C0NT2 10 


SENSE 


0047 





F007 


EOR 


K0800 


0048 





4?20 


BSC 


Z 


0049 


a 


70E1 


MOX 


ERROR 


004A 





CODF 


10 


COUNT 


004B 





3006 


A 


K0001 


004C 





70E0 


MOX 


SRTRO 


004 





OOOO 


DC 





004F 





2000 


DC 


/2Q00 


004F 





0008 


CC 


/0008 


0050 




OOOO 


FNO 






DUMMY MODIFY OF STQ L 



CHFCK FQR giTS 14*1<> ONLY 
SKIP BUSY AND NOT RF.ADY 



BIT SWS. LOADED TO ACC. 
CHFCK FOR BIT 4 ONLY 
SKIP END OF CARD 

COUNT PASSES 



HFXIDECIHAL NUMBER 
hfXIOECIMAL NUM3ER 6 



004670 
004680 
004690 
004 7 00 
004710 
004720 
004730 
00474O 
004760 
00476O 
004 7 70 
004780 
004790 

004ano 

004810 
0048 20 
0048 30 
004 840 
004850 
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CROSS RFFFRENCF LISTING 



SYMBOL 


VALUE 


REFERENCES 


CHKSM 


001E 


0009 


C0NT1 


0042 


0032 


CONT 2 


0046 


0044 


COUNT 


002A 


004A 


ENDCK 


0010 




ERROR 


0023 


0049 


K0001 


0022 


0035,003F,004B 


KOSOO 


001 F 


002B.0047 


K8000 


0021 


0042 


K8003 


0020 


0030 


RDIN 


002.4 


0000,0003,0033,0034,0036 


RDSW 


0026 


0002,0004, 002E 


SENSE 


0028 


OOOS , 0026. 00 2F ,0046 


SRTRD 


002 D 


0000, 0010,0038, 0041, 0045, 004C 


START 


0000 


0039, 003B 


STORE 


003C 


000 7,0008, OOOB, OOOC, 003E , 0040 



02BC 



OATE 
EC NO. 



01MAY66 
415490B 



PROG ID 
PAGE 
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0000 


C017 


oooi o 


1804 


0002 


0016 


0003 


D016 


0004 


C813 


OOOS 


8114 


0006 


3007 


0007 


C01D 


000<* 


1802 


0009 


D01B 


OOOA 


C018 


000 P 


1801 


oooc o 


0016 


OOOD 


COIB 


OOOE 


1803 


OOOF 


DO 1 9 


0010 


F016 


0011 


D015 


0012 


700A 


0013 


OOPO 


0014 


0000 


001 5 


0000 


0016 


0000 


0017 


0000 


0018 


FOFO 


0019 


OFOF 


001A 


OFOF 


001 B 


FOFO 


001C 


0000 


0010 


700F 


001 F 


0800 


001F 


•003 


0020 


•000 


0021 


0000 


0022 


•001 


0023 


2808 


0024 


Oono 


0025 


4800 


0026 


0000 


0027 


0003 


0028 


0004 


0029 


88O0 


002A 


0000 


0028 


F0F2 


002 C 


7000 


002D 


0«F4 


002 F 


08F7 


002F 


•«F8 


0030 


FOEt 


0031 


4820 


0032 


700F 


0033 


ORFO 


0034 


COIF 


Q035 


FOEC 


0036 


OOEO 


003 T 


4820 


0038 


7002 


0039 


C0C7 


003A 


7006 


003B 


C0C4 


003C 


7004 


OATE 


01MAY66 


EC NO. 


4154909 



ABS 






004 P 80 




ORG 







004B90 




* TEST DOUBLE 


PRECisior, 


1 LOAD ANO ADO ANO 


004P91 




* PROGRAM FOR 


: SCOPF LOOPS ON READ CARD 


004900 




* XIO FACTIONS APE IOENTICAL TO CAR01 BUT NO STOP 


004910 




» ON ERROR. 






004«!?0 




LO 


KFOFO 


SET UP CONSTANT /OFOF 


0049?! 




SRA 


4 




0049 2? 




STO 


KFOFO+l 




00492 3 




STO 


KF0F0*2 




004924 




LOO 


KFOFO 


TEST LOAD ROUBLE 


004925 




AO 


K* OFO+2 


TEST ADO DOUBLE 


004926 




WAIT 


/C007 


-SEE ACC. FFFF FFFF IF OK 


004927 




* 




CONT. IF NOT RESET ANO SI. 


0049 2B 




START LO 


RDINH 


CORRECT I/O CONT. COMM. 


004930 




SRA 


2 


SHIFT IT 


004940 




STO 


RDIN«1 


STORE IT 


004950 




LD 


K000U1 


CORRECT I/O CONT. COMM. 


004960 




SRA 


1 


SHIFT IT 


004970 




STO 


KOOOl'l 


STORE IT 


004980 




LO 


SENSE*1 


CORRECT I/O CONT. COMM. 


004990 




SRA 


3 


SHIFT IT 


005000 




STO 


SENSE*1 


STORE IT 


005010 




FDt 


RESET»1 




005020 




STO 


RESET*1 




005030 




MOX 


ENOCK 




005040 




CC 







005060 




DC 







005070 




OC 







005080 




DC 







005090 




DC 







005100 




KFOFO DC 


/FOFO 




005110 




OC 


/OFOF 




005120 




OC 


/OFOF 


PUT IN BY PROGRAM 


005200 




DC 


/FOFO 




005210 




OC 







005215 




ENOCK MOX 


SRTRD 




005220 




K0800 OC 


/OBOO 




005230 




K8003 OC 


/8003 




0052*0 




KROOO OC 


/8000 




005250 




CC 







005260 




K0001 OC 


/OOOI 


START RD, USED AS CONSTANT 


005270 




OC 


/2808 


/1404 SET BY PROG. 


005280 




ROIN OC 


/oooo 


READ IN LOCATIONS AND 1 


005290 




OC 


/4R00 


/1 200 SET tY PROG. 


005300 




RESET OC 





RESET OSW CONTROL COMMAND 


005310 




OC 


/0003 


/1703 SET BY PROG. 


005320 




SENSE OC 


/000> 


SENSE OSW CONTROL COMMAND 


005330 




DC 


/B800 


/1700 SET BY PROG. 


005340 




DC 







005350 




ERROR FOR 


K0800 


RESTORE ACC. TO DSH 


005360 




MOX 


• 


PUT WAIT HERE FOR ERR. STOP 


005370 




SRTRD XIO 


koooi 


START READ 


005380 




XIO 


R6SET 


RESET OSW 


005390 




XIO 


SENSE 


SENSE OSW FOR CRP 


005400 




EOR 


K80O3 


CHECK 8ITS 0,14*15 ONLY 


005410 




esc 


Z 


SKIP IF BITS 0,14*15 ONLY 


005420 




MOX 


C0NT1 


RO COL. 


005430 




XIO 


RDIN 




005440' 




10 


ROIN 




005450. 




EOR 


KOOOI 




005460 




STO 


RDIN 




005470 




BSC 


Z 


SKIP, OOD COL. JUST READ 


005480 




MOX 


HOP 




005490 




ID 


/OOOI 


LOAD ODO COL- JUST REAO 


005500 




MOX 


JUMP 




005510 




HOP 10 


/OOOO 


LOAD EVEN COL. JUST READ 


005520 




MOX 


JUMP 




005530 

PROG 10 
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0030 





0000 




DC 







005540 


003E 





0000 




oc 







005550 


003F 





0000 




DC 







005560 


00*0 





0000 




DC 







005570 


0041 





rote 


JUMP 


MDX 


SRTROM 




005580 


0042 





FOOD 


C0NT1 


FOR 


K8000 


CHFCK FOR BITS 14*15 ONLY 


005590 


00*3 





4820 




BSC 


I 


SKIP BUSY AND NOT READY 


005600 


00*4 





7001 




MDX 


C0NT2 




005610 


00 «-/i 





70 c 9 




COX 


SRTR0*2 




005620 


004*6 





A8DF 


C0NT2 


XIO 


RESFT 


SENSE AND RESET OSW 


005630 


0047 





F0Q6 




FOR 


K0800 


CHECK FOR BIT 4 ONLY 


005640 


0048 





4820 




BSC 


I 


SKIP FNO OF CARD 


005650 


0049 





70E1 




MOX 


ERROR 




005660 


004 A 





7002 




MDX 


/004D 




005670 


004B 





0000 




DC 







0056R0 


004C 





0000 




DC 







005690 


0040 





70DF 




MDX 


SRTRD 




005700 


0048 





2000 




DC 


/2000 


HEX10EC1MAL NUMBER 


005710 


004F 





0004 




DC 


/0004 


HEXIOECIMAL NUMBER 7 


005720 


0050 




0000 




END 







005730 
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SYMBOL 


VAIUF 


C0NT1 


004? 


C0NT2 


0046 


ENOCK 


001D 


ERROR 


002B 


HOP 


003R 


JUMP 


0041 


KFOFO 


0018 


K0001 


0022, 


K0800 


001E 


K8000 


0020 


KR003 


001F 


ROIN 


0024 


RFSFT 


0076 


SENSF 


0028 


SRTRO 


002 D 


START 


0007 



REFERENCES 

0032 

0044 

C012 

0049 

00 38 

O03A.OO3C 

OOOOf 0002, 0003,0004, 0005 

O00A,0OOC,OO2D,OO35 

002B.0047 

0042 

0030 

0007,0009,003 3,0034,0036 

0010, 0011. 002E, 0046 

0000,000F,002F 

00 ID, 004 1,0045, 0040 
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TITLE OF CONTENTS 
PARAGRAPH MSE 

1. PURPOSE ...... .........1 

2. PREREQUISITES. .... ............1 

2.1 PROGRAM PREREQUISITES 

2.2 EOUIPMENT PREREQUISITES 

3. USE PROCEDURE. l * 

3.1 PROGRAM LOADING 

3.2 OPERATING PROCEDURE 

3.3 OPERATING OPTIONS 

3.4 PROGRAM NAITS 

3.4.1 NORMAL MAITS 

3.4.2 ERROR MAITS 

3.5 PROGRAM TERMINATION 

3.6 RESTART PROCEDURE 



4. PRINTOUTS. 



4.1 
4.2 

5. COMMENTS 



NORMAL PRINTOUTS 
ERROR PRINTOUTS 



3v 



5.1 PROGRAM DESCRIPTION 

5.2 TEST ROUTINES DESCRIPTION 

5.3 DESCRIPTION OF OTHER ROUTINES 



USE PROCEDURE 

3.1 PROGRAM LOADING 

TO LOAD FROM CARDS 

A. PLACE THE RELOCATING LOADER, THE HIGH CORE TEST. AND THE LOW 
CORE TEST IN THE READER IN THAT ORDER. (SEE NOTE) 

B. MAKE READER READY. 

C. PRESS THE 1131 RESET KEY. 

0. PRESS THE 1131 PROGRAM LOAD KEY. 

E. IF THE PROGRAM FAILS TO LOAD OR STOPS AT A HAIT BELOW AODRESS 
•0160 REFER TO THE RELOCATING LOADER DOCUMENTATION. 

TO LOAD FROM PAPER TAPE 

A. PLACE THE RELOCATING LOADER IN THE READER. 

B. MAKE THE REAOER REAOV. 

C. PRESS THE 1131 RESET KEY. 

D. PRESS THE 1131 PROGRAM LOAD KEY. 

E. LOAOER MILL LOAD AND HALT AT HAIT 30F6 IB RE6I. 

F. PLACE THE HIGH CORE TEST IN THE REAOER. tSEE NOTE I 

G. MAKE THE REAOER READY. 

H. MANUALLY SET IAR TO /O0T8. 

1. SET MODE SMITCH TO RUN AND PRESS PROGRAM START. 

J. IF PROGRAM FAILS TO LOAD OR STOPS AT A MAIT BELOU AOORESS 
/0160 REFER TO RELOCATING LOADER DOCUMENTATION. 

K. AFTER HIGH CORE TEST IS LOADED, PLACE THE LOM CORE TEST TAPE 
IN THE READER AND MAKE READER REAOV. 

NOTE... IF DESIRED EITHER OF THE TMO PROGRAMS MAY BE LOADED AND 
EXECUTED INDEPENDENTLY. IF THE PROGRAMS ARE TO BE RUN 
IN SEOUENCE THE HIGH CORE TEST MUST BE EXECUTED FIRST. 
EXECUTION OF THE LOM CORE TEST DESTROYS THE LOAOER. 



1. PURPOSE 

THE CORE FUNCTION TESTS TEST THE CORES, CORE READ/MRITE CIRCUITRY, AND 
THE CORE ADDRESSING CIRCUITRY IN THE 1131 CENTRAL PROCESSING UNIT. THE 
CORE FUNCTION TESTS CONSIST OF TMO PROGRAMS MHICH ARE NORMALLY LOADED 
AND EXECUTED IN THE FOLLOWING SEQUENCE. 



3.2. 



OPERATING PROCEDURE 



B. 



HIGH CORE FUNCTION TEST (PID 03B0) TESTS ALL CORE LOCATIONS ABOVE 
ADDRESS /0800, AND CORE LOCATIONS /OOOO THRU /0009. 
LOM CORE FUNCTION TEST (PID 03B1I TESTS CORE LOCATIONS /OOOO THRU 
/0900 AND THE TEN HIGHEST LOCATIONS IN CORE. 



B. 
C. 
0. 



2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE CORE FUNCTION TESTS ARE LOADED BY THE 1130 RELOCATING LOADER. 

2.2 EOUIPMENT PREREQUISITES 



A. 

B. 



1131 CPU 

CARD OR PAPER TAPE INPUT TO THE 1131 



F. 
G. 
H. 



THE HIGH CORE TEST HILL LOAD ANO STOP AT HAIT 3001 IB RE6I. THE 

CORE SIZE HILL BE DISPLAYED IN THE ACCUMULATOR. 

SET SHITCH OPTIONS IF DESIRED. (NORMAL — ALL SHS OFF I 

PRESS PROGRAM START. 

THE HIGH CORE TEST HILL RUN ABOUT 1 TO 5 MINUTES OEPENOING 

ON CORE SIZE AND, IF NO ERRORS OCCUR, STOP AT THE END OF 

PROGRAM MAIT 3002. SET SNITCH OPTIONS ID OESIRED AND PRESS 

PROGRAM START. IF SH 15 IS ON THE HIGH CORE TEST MILL BE 

RERUN. 

IF SMT 15 IS OFF THE LOM CORE TEST MILL LOAD AND STOP AT MAIT 

3001. THE CORE SIZE OILL BE DISPLAYED IN THE ACCUMULATOR. 

SET OPTIONS IF DES1RE0. (NORMAL— ALL SMS OFF} 

PRESS PROGRAM START. 

THE LOM CORE TEST MILL RUN ABOUT 1 MINUTE AND, IF NO ERRORS 

OCCUR, STOP AT THE END OF PROGRAM MAIT 3002. PRESS START TO 

RERUN THE LOM CORE TEST. 

ERRORS MILL BE INDICATED BY ERROR MAITS ANO PRINTOUTS. 

PROGRAM OPTIONS MAY BE SELECTED OR CH'NGED AT ANY TIME. 

SEE SECTION 3.6 FOR RESTART PROCEDURE. 
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3.3 PROGRAM OPERATING OPTIONS 

ALL OPTIONS EXCEPT SHT 15 APPLY TO BOTH THE HIGH ANO LOM CORE TESTS. 
NORMAL SNITCH SETTINGS ALL OFF 






SHT 



15 



14 
13 
12 

11 
10 



0-7 



FUNCTION 



ON.. RERUN NIGH CORE TEST WHEN START IS PRESS AT THE END OF 

OFF.LOAD LOW CORE TEST WHEN PROGRAM START IS PRESSED AT END OF 
PROGRAM H AIT 130021. *»»«»■■ »u w 

NOTE.. SHT 15 SETTING HAS NO EFFECT ON LOM CORE TEST. 
ON..BVPASS OATA ERROR WAITS (3004 AND 3005). 
ON.. BYPASS ALL PRINTOUTS. 

ON.. LOCK ON ERROR FUNCTION. IF AN ERROR OCCURS WHILE SWITCH 12 
IS ON THE FAILING FUNCTION WILL BE LOOPED CONTINUOUSLY 
UNTIL SWT 12 IS TURNED OFF. SNITCH MAY BE TURNEO ON WHILE 
AT AN ERROR WAIT TO LOCK ON THE ERROR. 

ON.. LOOP ENTIRE PROGRAM. 
WILL BE BYPASSEO. 



THE START ANO END WAITS 13001 ANO 30021 



ON.. LOOP ROUTINE. IF A VALID ROUTINE NUMBER II THRU 6) IS 

ENTERED IN SWS 0-7 THAT ROUTINE WILL BE LOOPED CONTINOUSLY 
IF NO VAL10 ROUTINE NUMBER IS ENTERED IN SWS 0-T THE 
TEST ROUTINE WHICH IS CURRENTLY BEING EXECUTED WILL BE 
LOOPEO. THE ROUTINE WILL BE LOOPED UNTIL SWS 0-7 ARE 
CHANGED OR SWITCH 10 IS TURNED OFF. 

ON.. PRINT ROUTINE START NESSSAGE. IF SWT 9 IS ON A START 
MESSAGE WILL BE PRINTEO AT THE START OF EACH ROUTINE. 

ON.. LOCK ON ERROR ADDRESS. IF AN ERROR OCCURS WHILE SWT 8 IS 

^fcT*^*" " ,U *«-TERNATELY STORE THE LAST Go5d M AND 
THE LAST DATA WORD THAT FILED AT THE ADDRESS THAT FAILED. 

VLl L?*2 BE TURNE0 0H MHILE * T * N «*°* "IT TO LOCK ON 
THE ERROR* 

ROUTINE NUMBER.. .USED WITH SWT 10 OPTION. SEE SWT 10. 



3.4 PROGRAM WAITS 

ALL WAITS APPLY TO BOTH THE HIGH AND LOW CORE TESTS. 

3.4.1 NORMAL WAITS 



WAIT NO. 
IB REGI. 



DESCRIPTION 



30F6 . ENO OF PAPER TAPE LOADER. THIS IS 
. AN ERROR CONDITION EXCEPT AT THE 
. END OF PAPER TAPE LOADER. REFER 
. TO RELOCATING LOADER DOCUMENTATION, 

• 

3001 . START OF PROGRAM. ACCUMULATOR 
. CONTAINS CORE SIZE. 

3002 . END OF TEST PROGRAM. 



RESTART 
ACTION 



*. PLACE PROGRAM TAPE IN 
READER AND MAKE READY. 

B. MANUALLY SET IAR TO 0078. 

C. SET MODE SWT TO RUN AND 
PRESS PROGRAN START. 

A. SELECT OPTIONS IF DESIRED. 

B. PRESS PROGRAN START. 

A. SELECT OPTIONS IF DESIRED. 
8. PRESS PROGRAM START. 



3.4.2 ERROR WAITS 



WAIT NO. 
(B REGI. 



DESCRIPTION 



3003 



3004 



3005 



3006 



3007 



. PROGRAM COULO NOT DETERMINE CORE 
. SIZE. WRAP-AROUND FAILURE. 

* 

. DATA ERROR. FIRST WAIT. 

. A REG CONTAINS INCORRECT DATA. 

. REG CONTAINS CORRECT DATA. 

• 

. OATA ERROR SECOND WAIT. 

. A REG CONTAINS AODRESS THAT FAILED. 

REG BITS 0-7 CONTAINS RTN NO. 
. REG BITS 8-15 CONTAINS FUNC. NO. 

CONSOLE PRINTER FAILURE. 
SELECT BYPASS PRINT OPTION IF 
FAILURE PERSISTS. 

ILLEGAL SWITCH COMBINATION. 

SWS 8, 10, AND 12 ARE OFF AND SWS 

13 AND 14 ARE ON. THIS COMBINATION 

OF SWS WOULD PREVENT ERROR 

DETECTION. 



RESTART 
ACTION 



PRESS PROGRAN START TO RETRY. 



PRESS PROGRAM START TO 
ADVANCE TO WAIT 3005. 



SELECT OPTIONS IF DESIREO. 
PRESS PROGRAM START. 



PRESS PROGRAM START. 



CHANGE SWITCH SETTINGS. 
PRESS PROGRAM START. 



3.5 PROGRAM TERMINATION 

BOTH THE LOW AND HIGH CORE TESTS WILL TERMINATE IN A WAIT 
INSTRUCTION WITH 3002 INT EH B REG. «=•"""*«* ™ * **" 



DATE 
EC NO. 



15FEB68 
420403 



PROG ID 
PAGE 



03B0-* 

2 
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3.6 RESTART PROCEDURE 

RESTART FROM AMY HAIT BY PRESSING START. 

NO RESTART LINKAGE IS AVAILABLE FROM A SYSTEM RESET CONDITION. 
TO RESTART PROGRAM MANUALLY SET THE INSTRUCTION ADDRESS REGISTER 
AS SHOWN BELOW t GO TO RUN MODE, AND PRESS PROGRAM START. 

HIGH CORE TEST.. .SET IAR TO /0161 TO RESTART. 
LOW CORE TEST.. ..SET IAR TO /0961 TO RESTART. 



4. PRINTOUTS 

4.1 NORMAL PRINTOUTS 
START HIGH CORE TEST 
END HIGH CORE TEST 



THIS MESSAGE IS PRINTED AT THE START OF THE HIGH 
CORE TEST PROGRAM. 

THIS MESSAGE IS PRINTED AT THE END OF THE HIGH CORE 
TEST PROGRAM. 



START LOW CORE TEST 



ENO LOW CORE TEST 



START RTN XX 



THIS MESSAGE IS PRINTED AT THE START OF THE LOW CORE 
TEST PROGRAM. 

THIS MESSAGE IS PRINTED AT THE END OF THE LOW CORE 
TEST PROGRAM. 

THIS MESSAGE IS PRINTED AT THE START OF EACH TEST 
ROUTINE IF SWT 9 IS TURNED ON. XX IS THE ROUTINE NUMBER. 



4.2 



ERROR PRINTOUTS 



r \ 



ERK CORE SIZE 



ERR RTN XX FUNC YY 



THIS MESSAGE IS PRINTED IF THE PROGRAM IS UNABLE TO 
DETERMINE THE CORE SIZE. CORE WRAP-AROUND FEATURE FAILED. 

A OATA ERROR WAS OETECTEO. XX IS THE ROUTINE NUMBER 
ANO YY IS THE FUNCTION NUMBER. REGISTER DISPLAYS 
WILL PROVIDE FURTHER INFORMATION AT ERROR WAITS. 
SEE ERROR WAITS SECTION 3,4,2 AND ROUTINES DESCRIPTION 
SECTION 5.2. 



5. COMMENTS 



5.1 PROGRAM DESCRIPTION 

THE CORE FUNCTION TEST CONSISTS OF TWO NEARLY IDENTICAL PROGRAMS. 
THE ONLY DIFFERENCES BETWEEN THE TWO PROGRAMS ARE THE CORE LOCATIONS 
INTO WHICH THEY ARE LOADED AND THE CORE LOCATIONS WHICH THEY TEST. 

THE HIGH CORE TEST LOADS STARTING AT ADDRESS /0161 AND TESTS CORE 
FROM ADDRESS /0800 UP TO AN ADDRESS 10 LOCATIONS HIGHER THAN THE 
HIGHEST ADDRESS IN CORE. THIS PROCEDURE TESTS THE WRAP-AROUND 
FEATURE OF CORE. 

THE LOW CORE TEST LOADS STARTING AT ADDRESS /0961 AND TESTS CORE 
STARTING AT AN ADDRESS 10 POSITIONS LOWER THAN ADDRESS /OOOO UP TO 
ADDRESS /0900. THIS ALSO TESTS THE WRAP-AROUND FEATURE AND OVERLAPS 
THE AREA TESTED BY THE HIGH CORE TEST. 



5.2 TEST ROUTINES DESCRIPTION 

BOTH THE HIGH AND LOW CORE TESTS USE IDENTICAL TEST ROUTINES. THERE 
ARE SIX TEST ROUTINES AND EACH ROUTINE IS DIVIDED INTO TWO TEST 
FUNCTIONS. EACH TEST FUNCTION IS EXECUTED TWICE BEFORE GOTING TO 
THE NEXT ROUTINE OR FUNCTION. 

RTN 1...0NES ANO ZEROS PATTERN 

RTN 1 IS INITIALIZED BY FILLING CORE WITH ONES. 

FUNC. 1 CHECKS THEN COMPLEMENTS EACH CORE LOCATION STARTING AT THE 
LOWEST ADDRESS AND PROGRESSING TOWARD THE HIGHEST. 

FUNC. 2 CHECKS THEN COMPLEMENTS EACH CORE LOCATION STARTING AT THE 
HIGHEST ADDRESS AND PROGRESSING TOWARD THE LOWEST. 

RTN 2...A00RESSING PATTERN 

RTN 2 IS INITIALIZED BY FILLING EACH CORE LOCATION WITH ITS OWN 
ADDRESS. 

FUNC. 1 SAME AS RTN 1 FUNC 1. 
FUNC. 2 SAME AS RTN 1 FUNC 2. 

RTN 3.. .CHECKERBOARD PATTERN 

RTN 3 IS INITIALIZED BY FILLING CORE WITH ALTERNATE 5555 AND AAAA 
CHARACTERS. 

FUNC. 1 SANE AS RTN 1 FUNC 1. 
FUNC. 2 SANE AS RTN 1 FUNC 2. 

RTN 4... BIT ISOLATION PATTERN 

RTN 4 HAS NO INITIALIZATION STEP. 

FUNC. 1 FLOATING ONE PATTERN. BIT IS SET ON AND ALL OTHER BITS 
OFF IN THE CORE LOCATION BEING TESTED. THE BIT IS THEN 
CHECKED AND SHIFTED RIGHT ONE POSITION SO THAT THE CORE 
LOCATION ALWAYS CONTAINS 15 BITS OFF AND ONE ON. ALL 16 
POSITIONS OF EACH CORE LOCATION ARE CHECKEO BEFORE 
ADVANCING TO THE NEXT CORE LOCATION. 

FUNC. 2 FLOATING ZERO PATTERN. THIS TEST IS PERFORMED THE SAME 
AS RTN 4 FUNCTION 1 EXCEPT THAT A ZERO IS SHIFTED RIGJT 
KEEPING 15 BITS ON AND ONE OFF. 

RTN 5. ..WORST CASE (MAXIMUM NOISE) PATTERN 

RTN 5 IS INITIALIZED BY FILLING* CORE WITH THE WORST CASE PATTERN. 
THIS PATTERN CONSISTS OF BLOCKS OF ONES AND ZEROS. 

FUNC 1 RAPIDLY SCANS CORE CHECKING EACH CORE LOCATION. 
FUNC 2 CHECKS AND COMPLEMENTS EACH CORE LOCATION FOUR TIMES 
BEFORE PROCEEDING TO THE NEXT AOORESS. 

RTN 6. ..COMPLEMENT WORST CASE PATTERN 

RTN 6 IS INITIALIZED BY FILLING CORE WITH THE COMPLEMENT WORST 
CASE PATTERN. 

FUNC. 1 SAME AS RTN 5 FUNCTION 1. 
FUNC. 2 SAME AS RTN 5 FUNCTION 2. 
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0000 

0160 03B0 



ABS 

ORG 
DC 



/0160 
/03B0 



PIO 



0161 
0162 
0163 
0164 
0166 
0168 
016A 
OlbC 



C075 
D073 
1010 

D400 0000 
CCOO 03F4 
DCBO 0106 
C400 0000 
4C20 0185 



016E C067 
016F 1001 

0170 D065 

0171 4C10 0163 

0173 CCOO 03F4 
0175 DC80 01D6 
0177 C400 0000 
0179 4C20 0185 

017B CCOO 03F4 
01 7D OCOO 0000 
017F 4400 043B 

0181 8492 

0182 048C 

0183 3003 

0184 700C 



0185 
0186 
0188 
0189 
018A 
018C 
018D 



018E 4400 0438 

0190 847D 

0191 0484 

0192 1010 

0193 D045 

0194 D400 0400 



************************************************** 
PROGRAM INITIALIZATION 



FIND CORE SIZE 



C050 

9400 02E8 

0040 

804E 

D400 02F0 

C049 *, 

3001 



CRSIZ LO 
STO 
SLA 
STO 
LDD 
STD 
LD 
BSC 

LD 
SLA 
STO 
BSC 

* 

LDD 
STO 
LD 
BSC 

LDD 

STD 

BSI 

DC 

DC 

WAIT 
MDX 



FNDSZ LO 

S L 

STO 

A 

STO L 

LD 

WAIT 

START BSI L 
DC 
DC 

SLA 
STO 
STO L 



H1000 

SIZE 

16 



LINK 

SIZE 



FNDSZ, Z 



SET 8K CORE SIZE 

CLEAR ADDRS 0000 

STO RESTART LINKAGE 
DID WRAP-AROUND OCCUR 
*YESt BRANCH 



SIZE 

1 INCRE SIZE BY 4K 

SIZE IS SIZE OVER 32K 

CRSIZ+2,- *N0, BRANCH 



LINK 
SIZE 


FNDSZ, Z 

LINK 



PRINT 

MSG05+/8000 

MSG04 



STO RESTART LINKAGE 
DID WRAP-AROUND OCCUR 
♦YES, BRANCH 



PRINT ERROR MSG 



3 

CRSIZ 

SIZE 

H0001 

SIZE 

HOOOA 

UPRLM 

SIZE 

1 



PRINT 

HSG01+/8000 

HSG03 

16 
RIO 

ERRSW 



ERR, CANNOT FIND CORE SIZE 
RETRY 



CORRECT CORE SIZE 

AOD TEN 

SET UPPER TEST LIMIT 

WAIT FOR SWS, SIZE IN ACC 

PRINT START MSG 





0196 1010 


CNTRL 


SLA 






0197 D400 0280 




STO 


L 




0199 D400 0284 




STO 


L 




019B D400 0282 




STO 


L 




019D 0400 040E 




STO 


L 




019F OCOO 03F6 




XIO 


L 


DATE 


15FEB68 








EC NO. 


420403 









*************************************************** 

* 

* ROUTINE SEQUENCE CONTROL 

* 

*************************************************** 

* 

16 

ALTNT 

PASS 

COMPL 

FUNNO 

RDSWS READ SWS 



3B000020 

3B000030 

3B000040 

3B000050 

3B000060 

3BC00070 

3B000080 

3B000090 

3B000100 

38000110 

3B000120 

3B000130 

3B000140 

3B000150 

3B000160 

3B000170 

3B000180 

3B000190 

3B000200 

3B000210 

3B000220 

3B000230 

3B000240 

3B000250 

3B000260 

3B000270 

3B000280 

3B000290 

3B000300 

3B00O31O 

3B000320 

3B000330 

3B000340 

3B000350 

3B000360 

3B000370 

3B000380 

3B000390 

3B000400 

3B000410 

3B000420 

3B000430 

3B000440 

3B000450 

3B000460 

3B000470 

3B000480 

3B000490 

3B0OO500 

3B000510 

3B000520 

3B000530 

3B000540 

3B000550 

3B000560 

3B000570 

3B000580 

3B000590 

3B000600 

3B000610 

3B000620 

3B000630 

3B000640 

3B000650 

3B000660 

3B000670 

3B000680 

3B000690 



PROG ID 
PAGE 



03B0-0 
1 





01A1 


C400 


040F 




LD 


L 


SWS 




3B00O7OO 






01A3 
01A4 


1805 
4C04 


01C4 


* 


SRA 
BSC 


L 


5 

SLRTN, E 


BR IF LOOP RTN SELECTED 


3B000710 
3B000720 
3B000730 






01A6 


7401 


01D9 


ADVNC 


MDX 


L 


RID.l 


ADVANCE TO NEXT RTN 


3B000740 






01A8 


C030 






LD 




RID 




3B000750 






01A9 
01AA 


9032 
4C30 


0418 


« 


S 
BSC 


L 


LRTN 
END.-Z 


BR IF END OF PROGRAM 


38000760 
3B00O770 
3B000780 






01AC 


C02C 




LPRTN 


LD 




RID 




3B000790 






01AD 


4C08 


01A6 




BSC 


L 


ADVNC,* 


BR IF RID IS ZERO 


3B000800 






01AF 


801F 






A 




RTTBL 




38000810 






01BO 


0012 






STO 




STRTN+1 


SET RTN START ADDRS 


3B000820 






01B1 


C027 






LD 




RID 




3B000830 






0182 


8400 


0410 




A 


L 


NOTBL 




3B000840 






01B4 


D001 






STO 




*+l 


ENTER RTN. NUMBER IN MSG 


38000850 






01B5 


C400 


0000 




LO 


L 


*-* 




3B000860 






01B7 


D400 


0498 


* 


STO 


L 


HSG06+2 


-V 


3B000870 
3B000880 






01B9 


C400 


040F 




LD 


L 


SWS 




38000890 






01BB 


1009 






SLA 




9 


RTN START MSG SELECTED 


3B000900 






018C 


4C10 


01C2 


* 


BSC 


L 


STRTN, - 


♦NO, BRANCH 


3B000910 
38000920 






01BE 


4400 


043B 




BSI 


L 


PRINT 


PRINT RTN START MSG 


38000930 






01C0 


847D 






DC 




MSG01+/8000 


3B000940 






01C1 


0496 




* 


DC 




MSG06 




38000950 
3B000960 






01C2 


4C80 


0000 


STRTN 

• 


BSC 


I 


*-* 


START TEST ROUTINE 


38000970 
3B000980 






01C4 


1803 




SLRTN 


SRA 




3 




3B000990 






01C5 


4C18 


01AC 


* 


BSC 


L 


LPRTN, +- 


BR IF NO RTN SELECTED 


38001000 
38001010 






01C7 


9014 






S 




LRTN 




38001020 






01C8 


4C30 


01AC 


• 


BSC 


L 


LPRTN, Z- 


BR IF INVALID RTN NO. 


3B001030 
3B001040 






01CA 


C400 


040F 




LD 


L 


sws 


- 


3B001050 






01CC 


1808 






SRA 




8 




3B001060 






01C0 


DOOB 






STO 




RIO 


SELECT ROUTINE 


38001070 






01CE 


7000 




* 


MDX 




LPRTN 
ROUTINE 


AOORESS TABLE 


3B001080 
3B001090 
3B001100 
3B001110 






01CF 


OICF 




RTTBL 


DC 




RTTBL 




3B001120 






01D0 


01DD 






DC 




RTN1 




38001130 






01D1 


01F1 






DC 




RTN2 




38001140 






0102 


0211 






DC 




RTN3 




3B001150 






0103 


024D 






DC 




RTN4 


— ■ 


38001160 






01D4 


0265 






DC 




RTN5 




38001170 






01D5 


027B 




* 
* 
* 


DC 




RTN6 

PROGRAM 


CONSTANTS 


3B001180 
38001190 
3B001200 
38001210 






0106 


0000 




SIZE 


DC 




*-* 


CORE SIZE 


3B001220 






01D7 


1000 




HI 000 


DC 




/1000 




38001230 






01D8 


OOOA 




HOOOA 


DC 




/OOOA 




3B001240 






U109 


0000 




RID 


DC 




*-* 


ROUTINE NUMBER 


38001250 






01DA 


FFFF 




FFFF 


DC 




/FFFF 




3B001260 






01DB 


5555 




H5555 


DC 




Z5555 




3B001270 






010C 


0006 




LRTN 

* 


DC 




6 




38001280 
38001290 












*************************************************** 


3B001300 












* 










38001310 












* 






TEST ROUTINE ONE 


3B001320 












* 










3B001330 












♦ft**********************************:*************** 


3B001340 












* 










3B001350 






01DD 


COFC 




RTN1 


LD 




FFFF 




38001360 






01DE 


4400 


0285 




BSI 


L 


FILL 


FILL CORE WITH FFFF 


3B001370 




DATE 
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OltO 4400 020E 
01E2 4400 0293 

01E4 4400 0378 
01E6 70F9 

01E7 7401 040E 
01E9 4400 02F1 
01EB 4400 0293 

01ED 4400 0378 
01EF 70F9 

01F0 70A5 



01F1 C400 02EF 

01F3 D400 02E7 

01F5 0480 02E7 

01F7 F400 02F0 

01F9 4C18 0200 

01FB C400 02E7 
01FD 8400 02E8 
01FF 70F3 

0200 4400 02DE 
0202 4400 02AB 

0204 4400 0378 

0206 70F9 

0207 7401 040E 

0209 4400 02F1 
020B 4400 02 AB 

0200 4400 0378 
020F 70F9 

0210 7085 



FUN11 BSI L UP 

BSI L FLIP 

BSI L LOKFN 
MOX FUN 11 

MOX L FUNN0,1 
FUN12 BSI L OOMN 

BSI L FLIP 

* 

BSI L LOKFN 

MDX FUN12 

* 

MDX CNTRL 

* 

**********************************»* #iM „ < »j< : ^,^ > 

* TEST ROUTINE TWO 

*************************************************** 

* 

FILL EACH CORE 
LOCATION WITH 
ADDRESS 



INCRE LOW TO HIGH CORE 
CK AND STORE 0000 

CK FOR LOCK ON ERR FUNC 



DECRE HIGH TO LOW CORE 
CK CORE AND STORE 0000 

CK FOR LOCK ON ERR FUNC 
GO TO CONTROL 



RTN2 LD L 
STO L 
STO I 



EOR 
BSC 

LO 

A 
MDX 



LWRLM 
ADDRS 
ADORS 
UPRLM 
*+5,+- 



AODRS 
HOOOl 
RTN2+2 



BR LAST ADDRESS 
INCRE ADDRESS BY ONE 



L 
L 



L 
L 
L 



INCRE LOW TO HIGH CORE 
CK AND COMPLEMENT 

CK FOR LOCK ON ERR 



DECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

LOCK ON FUNCTION 





0211 





C0C9 




RTN3 


LO 




H5555 




0212 





D400 


0282 




STO 


L 


COM PL 




0214 





4400 


02DE 


• 


BSI 


L 


UP 




0216 





D400 


02E7 


STO 


L 


ADDRS 




0218 





C400 


0282 




LO 


L 


COM PL 




021A 





0480 


02E7 




STO 


I 


ADDRS 




021C 





FOBD 






EOR 




FFFF 




02 ID 





D400 


0282 




STO 


L 


COMPL 




021F 





C400 


02E7 




LD 


L 


ADDRS 




0221 





F400 


02F0 




EOR 


L 


UPRLM 




0223 





4C18 


022 A 


* 


BSC 


L 


**5,+- 




0225 





C400 


02E7 




LD 


L 


ADDRS 




0227 





8400 


02E8 




A 


L 


HOOOl 


DATE 


15FEB68 












EC NO. 


420403 


t 













FUN21 BSI 

BSI 

* 

BSI 

MDX 

MDX 
FUN22 BSI 

BSI 

* 

BSI 
MDX 

MOX 

* 

*************************************»»m M#># „^ 

* 

* TEST ROUTINE THREE 

* 



INCRE LOW TO HIGH CORE 



UP 
ADRCK 

LOKFN 
FUN21 

FUNN0»1 

DOWN 

ADRCK 

LOKFN 
FUN22 

CNTRL 



STORE 5555 AAAA PATTERN 

COMPLEMENT 

SET UP NEXT WORO 



BR IF LAST ADORS 
INCRE ADDRESS BY ONE 



3B001380 

3B001390 

3B001400 

3B001410 

3B001420 

3B001430 

3B001440 

3B001450 

3B001460 

3B001470 

3B001480 

3B001490 

3B001500 

3B001510 

3B001520 

3B001530 

3B001540 

3B001550 

3B001560 

3B00157O 

3B001580 

3B001590 

3B001600 

3B001610 

3B001620 

3B001630 

3B001640 

3B001650 

3B001660 

38001670 

3B001680 

3B001690 

3 BOO 1700 

3B001710 

3B001720 

3B001730 

3B001740 

3B001750 

3B001760 

3B001770 

3B001780 

3B001790 

3 BOO 1800 

38001810 

3B001820 

3B001830 

3B001840 

3B001850 

3B001860 

3B001870 

3B001880 

3B001890 

3B001900 

3B001910 

3B001920 

3B001930 

3B001940 

3B001950 

3B001960 

3B001970 

3B001980 

3B001990 

3B002000 

3B002010 

3B002020 

3B002030 

3B002040 

3B002050 



PROG ID 
PAGE 



0229 





70EC 




* 

* 


MDX 




RTN3+5 


022A 
022B 







COBO 
D400 


0282 


LO 
STO 


L 


H5555 
COMPL 


022D 
022 F 
0231 
0233 








C400 
D400 
4400 
4400 


0282 
02E6 
02DE 
02C5 


FUN31 

* 

* 

* 


LO 
STO 
BSI 
BSI 


L 

L 

L 
L 


COMPL 
SLDBE 
UP 
CHEX 


0235 
0237 






4400 
70F5 


0378 


BSI 
MDX 


L 


LOKFN 
FUN31 


0238 
023A 
02 3C 







7401 
C400 
D400 


040E 
02E6 
0282 


MDX 

LD 

STO 


L 
L 
L 


FUNNO.l 

SLDBE 

COMPL 


023E 
0240 
0242 
0244 

0246 










C400 
0400 
D400 
4400 
4400 


0282 
0282 
02E6 
02F1 
02C5 


FUN32 


LD 

STO 

STO 

BSI 

BSI 


L 

L 
L 
L 
L 


COMPL 

COMPL 

SLDBE 

DOWN 

CHEX 


0248 
024A 






4400 
70F3 


0378 


BSI 
MOX 


L 


LOKFN 
FUN 32 



INCRE LOW TO HIGH CORE 
CK AND COMPLEMENT 

CK LOCK ON ERR 



DECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

CK LOCK ON ERROR 



024B 4C00 0196 



BSC L CNTRL 



***************************** ********,*i*^ #<1 »*,^ < 

* 

* TEST ROUTINE FOUR 

* 

*************************************************** 

* 



024D 
024F 
0250 
0251 








C400 
D030 
1010 
4400 


02E8 
02F9 


RTN4 


LD 
STO 
SLA 
BSI 


L 

L 


HOOOl 
ALTNT 
16 

FLOAT 


0253 
0255 






4400 
70F7 


0378 





BSI 
MDX 


L 


LOKFN 
RTN4 


0256 





7401 


040E 


4c 


MDX 


L 


FUNNO. 


0258 
0259 
025A 
025C 
025E 









C028 
0026 
C400 
0400 
4400 


010A 
0282 
02F9 


FUN42 


LD 

STO 

LD 

STO 

BSI 


L 
L 

L 


H0002 
ALTNT 
FFFF 

COMPL 
FLOAT 


0260 
0262 






4400 
70F5 


0378 




BSI 

MDX 


L 


LOKFN 
FUN42 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT ON 

CK FOR LOCK ON ERR 



CK EACH CORE LOCATION 
BIT BY BIT, ONE BIT OFF. 

CK FOR LOCK ON ERR 



0263 4C00 0196 



BSC 



CNTRL 



0265 1010 

0266 D400 027F 
0268 4400 0315 



03BO-0 
2 





026A 4400 0323 




02 6C 4400 0378 


OATE 


15FEB68 


EC NO. 


420403 



*********** J******************************,*****^** 

* 

* TEST ROUTINE FIVE 

* 

**************************** ****** ****** *********** 

* 

RTN5 SLA 16 

STO L COUNT 

BSI L WORST STORE WORST CASE PATTERN 

* 

FUN61 BSI L CHECK CK EACH CORE LOCATION 

* 

BSI L LOKFN CK LOCK ON ERROR 



3B002060 

3B002070 

3B002C80 

3B002090 

3B002100 

3B002110 

3B002120 

3B002130 

3B002140 

3B00215O 

3B002160 

3B002170 

3B002180 

3B002190 

3B002200 

3B00221O 

3B002220 

3B002230 

3B002240 

3B002250 

3B002260 

3B002270 

3B002280 

3B002290 

3B002300 

3B002310 

3B002320 

3B002330 

3B002340 

3B002350 

3B002360 

3B002370 

3B002380 

3B002390 

3B002400 

3B002410 

3B002420 

3B002430 

3B002440 

3B002450 

3B002460 

3B002470 

3B002480 

3B002490 

3B002500 

3B002510 

3B002520 

3B002530 

38002540 

3B002550 

3B002560 

3B00257O 

3B002580 

38002590 

3B002600 

3B002610 

3B002620 

3B002630 

3B002640 

3B002650 

3B002660 

3B002670 

3B002680 

3B002690 

3B002700 

3B002710 

3B002720 

3B002730 
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DATE 
EC NO. 



026E 70FB 




* 


MDX 




FUN61 




3B002740 
3B002750 




026F 7401 (WOE 




MDX 


L 


FUNNO.l 




3B002760 




0271 C011 




FUN62 


LD 




H0004 




3B002770 




0272 D400 027F 




STO 


L 


COUNT 




3B002780 




0274 4400 0335 




BSI 


L 


SHAKE 


CK AND COMPL 4 TIMES 


3B002790 








* 










3B002800 




0276 4400 0378 




BSI 


L 


LOKFN 


CK LOCK ON ERROR 


3B002810 




0278 70F8 




• 


MDX 




FUN62 




3B002820 
3B002830 




0279 4C00 0196 




BSC 


L 


CNTRL 




3B002840 








• 










3B002850 








*************************************************** 


3B002860 








« 










3B002B70 








* 






TEST ROUTINE SU 


3B002880 








* 










3B002B90 








*************************************************** 


3B002900 








* 










3B002910 




027B C400 02E9 


RTN6 


LO 


L 


HFFFF 


SET UP COMPLEMENT 


3B002920 




0270 0004 






STO 




COMPL 


WORST CASE PATTERN 


3B002930 




027E 70E6 




* 


MDX 




RTN5 




3B002940 
3B002950 








*************************************************** 


3B002960 








* 










3B002970 








* 






SUBROUTINES FOR RTSS 1-6 


3B002980 








* 










3B002990 








*************************************************** 


38003000 








* 










3B003010 








* 






PROGRAM 


CONSTANTS 


3B003020 








* 










3B003030 




027F 0000 




COUNT 


DC 




*-* 




3B003040 




02B0 0000 




ALTNT 


DC 




*-*. 




3B003050 




02bl 0002 




H0002 


DC 




/0002 




3B003060 




02B2 0000 




COMPL 


OC 




*-# 




3B003070 




0283 0004 




H0004 


DC 




/0004 




3B003080 




02U4 0000 




PASS 

* 


DC 




*-* 




3B003090 
3B003100 








♦ 






FILL CORE WITH ONES 


3B003110 








* 










3B003120 




02U5 0000 




FILL 


DC 




*-* 




3B003130 




0286 D05F 






STO 




SLDBE 




3B003140 




02»7 C067 






LD 




LHRLN 


GET STARTING ADDRESS 


3B003150 




0288 D05E 






STO 




AOORS 




3B003160 




0289 C05C 






LD 




SLDBE 


GET DATA WORO 


3B003170 




02BA 0480 


02E7 




STO 


I 


ADDRS 


STO DATA WORD 


3B003180 




02BC C05A 






LD 




ADORS 




3B003190 




028D F062 






EOR 




UPRLM 




3B003200 




028E 4C98 


0285 


* 


BSC 


I 


FILL.+- 


BR IF LAST ADDRESS 


3B003210 
3B003220 




0290 C056 






LD 




ADORS 




3B003230 




0291 8056 






A 




H0001 


INCRE ADDRESS BY ONE 


3B003240 




0292 70F5 




* 
* 

* 


MDX 




FILL+3 
CK AND 


COMPLEMENT OOOO/FFFF PATTERN 


3B003250 
3B003260 
3B003270 

3B003280 




0293 0000 




FLIP 


DC 




*-* 




3B003290 




0294 0052 






STO 




ADORS 


SAVE STARTING ADDRESS 


3B003300 




0295 C480 


02E7 




LO 


I 


ADDRS 




3B003310 




0297 D052 






STO 




WAS 




3B003320 




0298 F04D 






EOR 




SLDBE 


DATA WORO CORRECT 


3B003330 




0299 4420 


0392 


* 


BSI 


L 


ERROR, Z 


♦NO, BRANCH TO ERROR RTN 


38003340 
3B003350 




029B C0E6 






LD 




COMPL 




3B003360 




029C 0480 


02E7 




STO 


I 


AOORS 


STORE NEW WORO 


3B003370 




029E C048 






LD 




AOORS 




3B003380 




029 F F04B 






EOR 




EN DPT 




3B003390 




02A0 4C18 


02A5 


• 


BSC 


L 


*+3,+- 


BR IF LAST ADDRESS 


3B003400 
3B003410 




15FEB68 
420403 
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PAGE 
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3 



.,J#*' 





02 A2 C044 




LD 




ADDRS 




3B003420 






02 A3 8048 




A 




INCRE 


INCRE AODRESS 


3B003430 






02 A4 70EF 


* 


HOX 




FLIP+1 




3B003440 
3B003450 






02A5 C040 




LO 




SLDBE 




3B003460 






02A6 OOOB 




STO 




COMPL 




3B003470 






02 A7 F041 




EOR 




HFFFF 




3B003480 






02 A8 DO 30 




STO 




SLDBE 




3b003490 






02A9 4C80 0293 


* 


BSC 


I 


FLIP 




3bO035OO 
3B003510 








* 






CK AND COHPLEHKNT ADDRESS PATTERN 


3b003520 








* 










3B003530 






02AB 0000 


ADRCK 


DC 




*-* 




3B003540 






02 AC D03A 




STO 




ADDRS 




3B003550 






02 AD F0D4 




EOR 




COMPL 




30003560 






02AE D037 




STO 




SLDBE 




3BO0357O 






02AF C480 02E7 




LD 


I 


AOORS 




3BO035BO 






02B1 D038 




STO 




WAS 




3B003590 






02B2 F033 




EOR 




SLDBE 


DATA WORO CORRECT 


3B0036OO 






02B3 4420 0392 


* 


BSI 


L 


ERROR, I 


♦NO, BRANCH 


3B003610 
3b00362O 






02B5 C030 




LD 




SLDBE 




3B0036 30 






02B6 F032 




EOR 




HFFFF 




3B003640 






02B7 D480 02E7 




STO 


I 


AOORS 


STORE COMPLEMENT 


3B00365O 






02B9 C02D 




LO 




ADDRS 




3b003660 






028A F030 




EOR 




ENDPT 


. 


3B003670 






02B8 4C18 02C0 


• 


BSC 


L 


*+3,+- 


BR IF LAST AODRESS 


3B003680 

3B00369O 






0280 C029 




LO 




ADDRS 




3B003700 






02BE 802D 




A 




INCRE 


INCRE AODRESS 


3B00371O 






02BF 70EC 


* 


MDX 




ADRCK+1 




3b00372O 
3B0O373O 






02C0 C0C1 




LO 




COMPL 




3B003740 






02C1 F027 




EOR 




HFFFF 




3B003750 






02C2 OOBF 




STO 




COMPL 




3B003760 






02C3 4C80 02AB 


* 


BSC 


I 


ADRCK 




3B003770 
3b003780 








* 






CK AND CONPLEME»T 5555/AAAA PATTERN 


3B003790 








* 










3bOO330O 






02C5 0000 


CHEX 


DC 




*-* 




3B003810 






02C6 0020 




STO 




ADORS 




3B003820 






02C7 C480 02E7 




LO 


I 


AODRS 




3B0O383O 






02C9 0020 




STO 




WAS 




3B003840 






02CA F01B 




EOR 




SLOBE 


DATA WORO CORRECT 


3B0O385O 






02CB 4420 0392 


* 


BSI 


L 


ERROR, Z 


♦NO, BRANCH 


3B003860 
3B003870 






02CD C018 




LD 




SLDBE 




3B003880 






02CE F01A 




EOR 




HFFFF 




3B003890 






02CF D480 02E7 




STO 


I 


ADDRS 


STORE COMPLEMENT 


3b003900 






0201 D014 




STO 




SLOBE 




3B003910 






0202 C014 




LD 




AOORS 




3B003920 






02D3 F017 




EOR 




ENDPT 




3B003930 






02D4 4C18 0209 


* 


BSC 


L 


*+3,+- 


BR IF LAST ADDRESS 


360039*0 
3B003950 






0206 C010 




LO 




ADDRS 




3b003960 






0207 8014 




A 




INCRE 


INCRE ADDRESS 


3B003970 






02D8 70ED 


* 


MDX 




CHEX+1 




3B003980 
3B003990 






02D9 C0A8 




LD 




COMPL 




3B004000 






02DA FOOE 




EOR 




HFFFF 




3B004010 






020B 00A6 




STO 




COMPL 




3B004020 






02DC 4C80 02C5 


* 
* 
* 


BSC 


I 


CHEX 
INCREMENT 


FROM LOWER TO UPPER CORE 


3B004030 
3B004040 
3B004050 
3B004060 






02UE 0000 


UP 


OC 




*-* 




3B004070 






020F COOS 




LD 




H0001 




3B004080 






02 EO DOOB 




STO 




INCRE 


SET UP ADDRS INCREMENT 


3B004090 




DATE 


15FEB68 












PROG ID 


0380-0 


EC NO. 


420403 
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02E1 





COOE 






LO 




UPRLN 




3B004100 






02E2 





D008 






STO 




ENDPT 


SET LAST ADDRESS 


3B004110 






02E3 





COOB 






LD 




LHRLM 


SET FIRST ADDRESS 


3B004120 






02E4 





4C80 


02DE 


* 


BSC 


I 


UP 




3B004130 
3B004140 














* 






PROGRAM CONSTANTS 


3B004150 














* 










3B004160 






02E6 





0000 




SLOBE 


OC 




»-* 




3B004170 






02E7 





0000 




AOORS 


DC 




*-* 




3B004180 






02EB 





0001 




H0001 


DC 




/0001 




38004190 






02E9 





FFFF 




HFFFF 


DC 




/FFFF 




3B004200 






02EA 





0000 




WAS 


DC 




*-• 




3B004210 






02EB 





0000 




ENOPT 


DC 




*-* 




3B004220 






02EC 





0000 




INCRE 


DC 




»-* 




3B004230 






02ED 





0000 




TEMP 


DC 




»-* 




3B004240 






02EE 





8000 




H8000 


DC 




/8000 




3B004250 






02EF 





0800 




LHRLM 


DC 




/0800 




3B004260 






02F0 





0000 




UPRLN 

* 
* 
* 


DC 




DECREMENT 


FROM UPPER TO LOWER CORE 


3B004270 
3B004280 
3B004290 
3B004300 






02F1 





0000 




DOWN 


DC 




*-* 




3B004310 






02 F2 





C0F6 






LD 




HFFFF 


SET UP ADDRESS INCRE 


3B004320 






02F3 





D0F8 






STO 




INCRE 




3B004330 






02F4 





COFA 






LD 




LWRLH 




3B004340 






02F5 





D0F5 






STO 




ENDPT 


SET UP LAST ADORESS 


3B004350 






02F6 





C0F9 






LD 




UPRLN 


SET UP FIRST ADDRESS 


3B004360 






02F7 





4C80 


02FI 


* 
• 
* 


BSC 


I 


DOWN 
CHECK BIT 


BY BIT PATTERN 


3B004370 
3B004380 
3B004390 
3B004400 




>■ 


02F9 





0000 




FLOAT 


DC 




*-* 




3B004410 




t 


02 FA 





C0F4 






LD 




LWRLN 




3B004420 






02FB 





DOEB 






STO 




ADDRS 


SAVE ADDRESS 


3B00443C 






02FC 





C0F1 






LD 




H8000 




3B004440 






02F0 





F084 






EOR 




COMPL 




3B004450 






02FE 





D0E7 






STO 




SLDBE 




3B004460 






02FF 





D480 


02E7 




STO 


I 


ADDRS 


STORE OATA WORD 


3B004470 






• 0301 





C480 


02E7 




LD 


I 


ADDRS 




3B004480 






0303 





D0E6 






STO 




WAS 




3B004490 






0304 





F0E1 






EOR 




SLDBE 


DATA CORRECT 


3B004500 






0305 





4420 


0392 


* 


BSI 


L 


ERROR, 2 


*N0, BRANCH 


3B004510 
3B004520 






0307 





CODE 






LD 




SLDBE 




3B004530 






0308 





F400 


0282 




EOR 


L 


COMPL 


LAST SHIFT 


3B004540 






030A 





4C04 


030E 


* 


BSC 


L 


*+2,E 


♦NO, BRANCH 


3B004550 
3B004560 






030C 





1801 






SRA 




1 


SHIFT DATA 


3B004570 






030D 





70EF 




* 


MOX 




FLOAT+4 




3B004580 
3B004590 






030E 





C008 






LD 




ADDRS 




3B004600 






030F 





FOEO 






EOR 




UPRLN 




3B004610 






0310 





4C98 


02 F9 


* 


BSC 


I 


FLOAT, +- 


BR IF LAST ADDRESS 


3B004620 
3B004630 






0312 





C004 






LD 




ADDRS 




3B004640 






0313 





80D4 






A 




H0001 


INCRE ADDRESS 


3B004650 






0314 





70E6 




* 


MDX 




FLOAT-t-2 




3B004660 
3B004670 














* 






STORE WORST CASfc PATTERN 


3B004680 














* 










3B004690 






0315 





0000 




WORST 


DC 




*-* 




3B004700 






0316 





C0D8 






LD 




LWRLM 




3B004710 






0317 





OOCF 






STO 




ADDRS 


SAVE ADDRESS 


3B004720 






0318 





4400 


0352 




BSI 


L 


FIND 


FIND IF 0000 OR FFFF 


3B004730 






031A 





0480 


02E7 




STO 


I 


ADDRS 


STORE DATA 


3B004740 






031C 





COCA 






LD 




ADDRS 




3B004750 






0310 





F002 






EOR 




UPRLN 




3B004760 






03 IE 





4C98 


0315 




BSC 


I 


WORSTS- 


BR IF LAST ADDRESS 


3B004770 




DATE 


15FEB68 














PROG ID 


03B0-0 


EC NO. 


420403 
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0320 





C0C6 






LD 




ADDRS 




0321 





80C6 






A 




H0001 


INCRE ADORESS 


0322 





T0F4 




* 


MDX 




WORST+2 












* 






CHECK WORST CASE PATTERN 


0323 





0000 




CHECK 


DC 




•-* 




0324 





COCA 






LD 




LWRLM 




0325 





D0C1 






STO 




ADDRS 


SAVE ADDRESS 


0326 





C480 


02E7 




LD 


1 


ADORS 




0328 





D0C1 






STO 




WAS 




0329 





4C18 


032E 


£ 


BSC 


L 


*+3,+- 


BR IF DATA ZERO 


032B 





FOBO 






EOR 




HFFFF 


COMPLEMENT DATA 


032C 





4420 


0360 


* 


BSI 


L 


ERR, 2 


BR TO ERROR RTN IF 


032E 





COBS 






LD 




ADDRS 




032F 





FOCO 






EOR 




UPRLM 




0330 





4C98 


0323 


£ 


BSC 


I 


CHECK, +- 


BR IF LAST ADORESS 


0332 





C0B4 






LD 




ADDRS 




0333 





80B4 






A 




H0001 


INCRE ADORESS 


0334 





70F0 




* 
* 


MDX 




CHECK+2 
















CK AND COMPLEMENT 4 TIMES 


0335 





0000 




SHAKE 


DC 




*-* 




0336 





COBS 






LD 




LWRLM 




0337 





OOAF 






STO 




ADDRS 


SAVE ADDRESS 


0338 





C480 


02E7 




LD 


I 


ADDRS 




033A 





DOAF 






STO 




WAS 




033B 





4C18 


0350 


•jt 


BSC 


L 


INVRT, ♦- 


BR OATA WORD ZERO 


0330 





FOAB 






EOR 




HFFFF 


COMPL DATA 


033E 





4420 


0360 


* 


BSI 


L 


ERR,Z 


BR IF NOT ZERO 


0340 





D480 


02E7 


STORE 


STO 


I 


ADDRS 


STORE NEW DATA 


0342 





74FF 


027F 




MOX 


L 


COUNT, -1 




0344 





70F3 




* 


MDX 




SHAKE* 3 




0345 





C0A1 




LO 




ADDRS 




0346 





F0A9 






EOR 




UPRLN 




0347 





4C98 


0335 


$ 


BSC 


I 


SHAKE, ♦- 


BR IF LAST ADDRESS 


0349 





C400 


0283 




LO 


L 


H0004 




034B 





D400 


027F 




STO 


L 


COUNT 




0340 





C099 






LD 




ADDRS 




034E 





8099 






A 




H0001 


INCRE ADDRESS 


034F 





70E7 




* 
INVRT 


MDX 




SHAKE+2 




0350 





F098 




EOR 




HFFFF 


COfiPLEKENT DATA 


0351 





70EE 




* 
* 


MDX 




STORE 
DETERMINE 


IF DATA S/B 0000 OR 


0352 





0000 




FIND 


DC 




*-* 




0353 





C093 






LD 




ACDRS 




0354 





1806 






SRA 




6 




0355 





0097 






STO 




TEMP 




0356 





1802 






SRA 




2 


AOORS SITS 7 AND 9 


0357 





F095 






EOR 




TEMP 


BOTH OR BOTH 1 


0358 





4C04 


035C 


* 


BSC 


L 


**2,E 


♦NO, BRANCH 


035A 





1010 




SLA 




16 




035B 





7001 






MDX 




*+l 





035C C08C 



LD 



HFFFF 



COMPLEMENT OATA FOR 



36004780 
3B004790 
3B004800 
3B004810 
3B004820 
3B004830 
3B004840 
3B004B50 
3B004860 
3B004870 
3B004880 
3B004890 
3B004900 
3B004910 
3B004920 
3B004930 
3B004940 
3B004950 
3B004960 
3B004970 
3B004980 
38004990 
3B005000 
3B005010 
3B005020 
3B005030 
3B005040 
3B005050 
3B005060 
33005070 
3B005080 
3B005090 
3B005100 
3B005110 
3B005120 
3B005130 
3B005140 
38005150 
3B005160 
3B005170 
3B005180 
3B005190 
3B005200 
3B005210 
3B005220 
3B005230 
3B005240 
3B005250 
3B005260 
3B005270 
3B005280 
3B005290 
3B005300 
3B005310 
3B005320 
3B005330 
3B005340 
3B005350 
3B005360 
3B005370 
3B005380 
3B005390 
3B005400 
3B005410 
3B005420 
3B005430 
3B005440 
3B005450 
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035D F400 0282 
035F D0B6 
0360 C400 027F 
0362 4C04 0367 

0364 C0B1 

0365 4C80 0352 

0367 C400 02E6 
0369 F400 02E9 
036B 4C80 0352 



0360 
03bE 
0370 
0372 
0374 
0376 



0378 
0379 
037B 
037D 
037F 
0380 
0382 
0384 



0000 

4400 0352 
0400 02E6 
4400 0392 
F400 02E9 
4C80 0360 



0000 

7401 0284 
C400 0284 
4C84 0378 
1010 

D400 0284 
7400 0400 
7004 



0385 7401 0378 
03b7 4C80 0378 

0389 086C 
038A C400 040F 
038C 100C 
0380 4CA8 0378 

038F 1010 

0390 007C 

0391 70F3 



EOR L 
STO 

LD L 

BSC L 

LD 

BSC I 

LD L 

EOR L 

BSC I 



* 

* 
ERR 



DC 
BSI 
STO 
BSI 

EOR 



LOKFN DC 
MOX 
LD 



SLA 
STO 
MOX 



COM PL 
SLOBE 
COUNT 
**3,E 

SLDBE 
FIND 

SLDBE 
HFFFF 
FIND 



COMPLEMENT WORST CASE 

DATA COMPL ODD NO., TIMES 
♦ YES, BRANCH 



COMPLEMENT DATA 



ERROR IN WORST CASE PATTERN 



BSC I 



*-» 

FIND 

SLDBE 

ERROR 

HFFFF 

ERR 



FIND GOOD DATA 
GO TO ERROR RTN 



CK PASS COUNT AND LOCK ON ERR 



BR IF COUNT ODD 



PASS.l 
PASS 



BSC I LOKFN, E 
SLA 16 



STO L 

MDX L 
MOX 

MDX L 
BSC I 

XIO 
LD L 
SLA 



PASS 

ERRSH 

**4 

LOKFN* 1 
LOKFN 

RDSWS 

SHS 

12 



BSC I LOKFN, Z+ 



16 

ERRSM 
LOKFN+13 



ERROR SW ON 
*YES BRANCH 

ADD ONE TO RETURN 



READ SWITCHES 

LOCK ON ERR FUNC SELECTED 
*YES, BRANCH 



CLEAR ERROR SW 



*************************************************** 

* 

* ERROR ROUTINE 

* 

* 





0392 





0000 




ERROR 


DC 




*-* 






0393 





ccoo 


0000 




LDD 


L 









0395 





DC00 


0404 




STD 


L 


SAVE! 






0397 





C85C 






LOD 




LINK 






0398 





DC00 


0000 




STD 


L 





SET UP RESTART 




039A 





085B 






XIO 




RDSWS 


READ SWS 




039B 





C073 






LO 




SWS 






039C 





E06E 






AND 




HOOAE 






0390 





F06E 






EOR 




H0006 


ILLEGAL SWITCH 




039E 





4C20 


03A2 


• 


BSC 


L 


*+2,Z 


♦NO, BRANCH 




03A0 





3007 




WAIT 




7 


ERR-1LLEGAL SW 




03A1 





70F5 




* 


MDX 




ERROR+5 






03A2 





C400 


040E 


LD 


L 


FUNNO 






03A4 





8400 


02E8 




A 


L 


H0001 






03A6 





8069 






A 




NOTBL 






03A7 





D001 






STO 




**l 




DATE 


15FEB68 














EC NO. 


420403 















38005460 
36005470 
38005480 
3B005490 
3B005500 
3B005510 
3B005520 
38005530 
3B00554O 
3B005550 
38005560 
3B005570 
3B005580 
38005590 
3B005600 
3B005610 
3B005620 
3B00S630 
3 BOO 5640 
3B005650 
3B005660 
38005670 
3B005680 
3B005690 
3B005700 
3B005710 
3B005720 
3B00573O 
3B005740 
3B005750 
3B005760 
3B005770 
3B005780 
38005790 
3B005800 
3B005810 
3B005B20 
3B005830 
38005840 
3B005850 
3B005860 
3B00SB7O 
3B005880 
3B005890 
3B005900 
3B005910 
3B005920 
3B005930 
3B005940 
3B005950 
3B005960 
3B005970 
3B005980 
3B005990 
3B006000 
3B006010 
3B006020 
3B006030 
3 BO 06 040 
3B006050 
3B006060 
38006070 
3B006080 
38006090 
3B006100 
3B006110 
3B006120 
38006130 



PROG ID 
PAGE 



03B0-O 
5 



DATE 
EC NO. 



03A8 C400 0000 




LO 


L 


*-» 




3B006140 




03AA D400 049E 




STO 


L 


MSG07*3 


PUT FUNC. NO. IN MSG 


3B006150 




03AC 4400 043B 




BSI 


L 


PRINT 


PRINT ERROR MSG 


3B006160 




03AE 8492 




DC 




MSG05+/8000 


38006170 




03AF 8496 




DC 




HSG06+/8000 


38006180 




03B0 049B 


* 


DC 




MSG07 




3B006190 
38006200 




03B1 C05D 




LO 




SWS 




3B00621O 




03B2 100E 




SLA 




14 




3B006220 




03B3 4C28 03C6 


* 


BSC 


L 


NWAIT, Z+ 


BY IF BYPASS WAIT 


3B006230 
3B006240 




03B5 C400 02E6 




LD 


L 


SLDBE 


GET GOOD OATA 


3B006250 




03B7 1890 




SRT 




16 


PUT IN 


3B006260 




03B8 C400 02EA 




LD 


L 


WAS 


BAD OATA IN A 


38006270 




03BA 3004 


* 


WAIT 




4 


ERROR WAIT 


38006280 
38006290 




03BB C400 040E 




LO 


L 


FUNNO 




38006 300 




03BD 8400 02E8 




A 


L 


H0001 




3B006310 




03BF 1888 




SRT 




8 


PUT FUNCTION NO. 


3BO06 32O 




03C0 C400 01D9 




LD 


L 


RIO 


AND RTN NO. 


3BO0633O 




03C2 1888 




SRT 




8 


IN Q REG 


3B006340 




03C3 C400 02E7 




LD 


L 


ADORS 


AODRS IN ACC 


3BO0635O 




03C5 3005 


* 


WAIT 




5 


ERROR WAIT 


3B006 360 
3B006370 




03C6 082F 


NWAIT 


XIO 




RDSWS 


READ SWS 


3B006380 




03C7 C047 




LD 




SWS 


• 


3B0063S0 




03C8 D044 




STO 




ERRSW 


SET ERROR SWITCH 


3B006400 




03C9 1008 




SLA 




8 




3B00641O 




03CA 4C28 03D6 


* 


BSC 


L 


LOOPA, 2+ 


BR TO LOOP ADDRESS 


3B006420 
3B006430 




03CC CCOO 0404 




LDD 


L 


SAVE1 




3B006440 




03CE DCOO 0000 




STD 


L 







3B006450 




03D0 C400 02E6 




LD 


L 


SLDBE 




38006460 




03D2 D480 02E7 




STO 


I 


ADORS 




3B006470 




0304 4C80 0392 




BSC 


I 


ERROR 




3B006480 




0306 C400 0280 


LOOPA 

* 


LD 


L 


ALTNT 




3B006490 
38006500 




0308 8031 




A 




H7000 


FIND LAST GOOD DATA 


3B006510 




03D9 D001 




STO 




**1 


WORD STORED 


3B006520 




03DA C400 02E6 




LD 


L 


SLDBE 




38006530 




03DC 7000 


• 


MDX 




* 




3B006540 
3B006550 




03DD 7011 




MDX 




ALTOO 




3B006560 




03DE 7013 


* 


MDX 




ALT01 




3B006570 
38006580 




03DF 1001 


ALT02 


SLA 




1 




3B006590 




03E0 8400 02EB 




A 


L 


H0001 




3B006600 




03E2 0480 02E7 




STO 


I 


AODRS 


STO LAST GOOD DATA 


3B006610 




0364 C400 02E6 




LD 


L 


SLDBE 




3B006620 




03E6 D480 02E7 




STO 


I 


ADORS 


STO LAST BAD OATA 


3B006630 




03E8 C480 02E7 




LD 


I 


ADORS 




3B006640 




03EA F400 02E6 




EOR 


L 


SLDBE 


OATA GOOO NOW 


3B006650 




03EC 4C20 0393 


♦ 


BSC 


I 


ERROR 4-1, 2 


♦NO, BRANCH 


3B006660 
3B006670 




03EE 70D7 




MDX 




NWAIT 




3B006680 
3B006690 




03EF F400 02E9 


ALTOO 


EOR 


L 


HFFFF 




3B006700 




03F1 70F0 




MOX 




ALT02+3 




3B006710 
3B006720 




03F2 1001 


ALT01 


SLA 




1 




3B0O6730 




03F3 70EE 




MDX 




ALT02+3 
CONSTANTS 


IOCC TABLE 


3B006740 
3B006750 
3B006760 
3B006770 




03F4 0000 




BSS 


E 






33006780 




03F4 4C00 0161 


LINK 


BSC 


L 


CRSIZ 




3B006790 




03F6 040F 


RDSWS 


DC 




SWS 




3B006800 




03F7 3A00 




DC 




/3A00 




3B006810 




1!>FEB68 
420403 
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03F8 04T5 


VECTR DC 


INT 




03F9 0479 


DC 


STOP 




03FA 0000 


SENSE DC 







03FB 0F01 


DC 


/0F01 




03FC 0408 


RETRN DC 


CR 




03FD 0900 


DC 


/0900 




03FE 0402 


PRNT1 DC 


CHAR1 




03FF 0900 


DC 


/0900 




0400 0403 


PRNT2 DC 


CHAR2 




0401 0900 


DC 


/0900 




0402 0000 


CHAR1 DC 


*-* 




0403 0000 


CHAR2 DC 


*-* 




0404 0000 


SAVE1 DC 


*-* 




0405 0000 


DC 


*-• 




0406 0000 


SAVE2 DC 


*-* 




0407 0000 


DC 







0408 8500 


CR DC 


/8500 




0409 0000 


MSGAD DC 


»-* 




040A 7000 


H7000 DC 


/7000 




040B OOAE 


HOOAE DC 


/OOAE 




040C 0006 


H0006 DC 


/0006 




040D 0000 


ERRSW DC 







040E 0000 


FUNNO DC 


*-• 




040F 0000 


SWS DC 


*-* 




0410 0410 


NOTBL DC 


NOTBL 




0411 C4FC 


DC 


/C4FC 


01 


0412 C4D8 


DC 


/C4D8 


02 


0413 C4DC 


DC 


/C4DC 


03 


0414 C4F0 


DC 


/C4F0 


04 


0415 C4F4 


DC 


/C4F4 


05 


0416 CfDO 


DC 


/C4D0 


06 


0417 C404 


DC 


/C404 


07 



************************************************** 
PROGRAM END ROUTINE 



0418 


4400 


043B 


END 


BSI 


L 


PRINT 


PRINT END MSG 


041A 


8481 






DC 




MSG02+/8000 


041B 


0484 






DC 




MSG03 




041C 


C807 






LOD 




LINK 




041D 


DCOO 


0000 




STD 


L 







041F 


0806 






XIO 




ROSMS 


READ SHS 


0420 


COEE 






LD 




SMS 




0421 


100B 






SLA 




11 


LOOP PROGRAM 


0422 


4C28 


018E 


* 
* 


BSC 


L 


START, Z+ 


•YES, BRANCH 


0424 


3002 




WAIT 




2 


END PROGRAM 


0425 


0800 






XIO 




RDSHS 


READ SHS 


0426 


C0E8 






LD 




SHS 




0427 


4C04 


0161 


* 


BSC 


L 


CRSIZtE 


BR IF SU 15 ON 








* 
* 






LOAOER LINKAGE 


0429 


COOF 






LD 




SVINT 




042A 


D400 


0008 




STO 


L 


/8 




042C 


COOD 






LD 




SVINT+1 




0420 


D400 


OOOC 




STO 


L 


/C 




042 F 


6300 




* 
* 


LDX 


3 







0430 


6078 




LDX 




/0078 


LOAD NEXT PROG 


0431 


C400 


0008 


LOLNK 


LD 


L 


>8 




0433 


0005 






STO 




SVINT 




0434 


C400 


OOOC 




LO 


L 


/C 




OATE 15FEB68 














EC NO. ' 420403 















3BO0682O 

3BO06830 

3B006840 

3B006850 

3B006860 

3B006870 

3B006880 

3B006890 

3B006900 

3B006910 

3B006920 

3B006930 

3B006940 

3B006950 

3B006960 

3B006970 

3B006980 

3B006990 

3B007000 

3B007010 

3B0O7O2O 

3B007030 

3B007040 

3B007050 

3B007060 

3B007070 

3B007080 

3B007090 

3B007100 

3B007110 

3B007120 

3B007130 

3B007140 

3B007150 

313007160 

3B007170 

3B007180 

3B007190 

3B007200 

38007210 

3B007220 

3B007230 

3B007240 

3B007250 

3B007260 

3B007270 

3B007280 

3B007290 

3B0O73OO 

3B007310 

3B007320 

3B007330 

3B007340 

3B007350 

3B007360 

3B007370 

3B007380 

3B007390 

3B007400 

3B007410 

3B0O7420 

3B007430 

3B007440 

3B007450 

3B007460 

3B007470 

3B007480 

3B007490 



PROG ID 
PAGE 



0436 0003 

0437 4C00 0161 

0439 0000 
043A 0000 



STO 
BSC 



SVINT+1 
CRSIZ 



043B 0000 
043C 08B9 
043D C0D1 
043E 100D 
043F 4C10 0448 



0441 
0443 
0445 



7401 043B 
C480 0438 
4C10 046D 



0447 70F9 



0448 
044A 
044C 
044D 
044F 
0450 



CCOO OOOC 
DCOO 0406 
C8AB 

DCOO OOOC 
08AC 
3006 



0451 C480 043B 

0453 D0B5 

0454 C480 0409 
0456 F400 02E9 
0458 4C18 0466 



045A 





F400 02E9 


045C 





D0A5 


0450 





1008 


045E 





D0A4 


045F 





089E 


0460 





3006 


0461 





089E 


0462 





3006 



0463 7401 0409 

0465 70EE 

0466 C480 043B 
0468 4C10 046D 

046A 7401 043B 
046C 70E4 



046D 
046F 
0471 
0473 
0475 
0476 
0477 



7401 043B 
CCOO 0406 
DCOO OOOC 
4C80 043B 
0000 
0883 
4CC0 0475 



03B0-0 
6 



DATE 
EC NO. 



0479 0000 
047A 3008 
047B 4CC0 0479 



15FEB68 
420403 



SVINT DC *-* 
DC »-» 

* PRINT ROUTINE 

* 

*********************************************** 



**** 



***» 



PRINT DC 
XIO 
LD 

SLA 

BSC 

« 

GTOUT MDX 
LD 
BSC 

MOX 

PRNIT LDO 
STD 
LDD 
STD 
XIO 
WAIT 

GTADR LD 
STO 
LD 
EOR 
BSC 



EOR 
STO 
SLA 
STO 
XIO 
HA1T 

XIO 
WAIT 

HOX 
MDX 



MSGEN LO 
BSC 



* 
OUT 



INT 



STOP 



MOX L 
MDX 

MDX L 

LOD L 

STO L 

BSC I 
DC 
XIO 

BOSr i 

rV 

► AIT 
BOSC I 



»-» 
ROSMS 
SHS 
13 
PRNIT, - 

PR I NT, I 

PRINT 

OUT,- 

GTOUT 

12 

SAVE2 

VECTR 

12 

RETRN 

6 

PRINT 
MSGAD 
MSGAD 
HFFFF 
MSGEN, ♦- 

HFFFF 

CHAR I 

8 

CHAR2 

PRNT1 

6 

PRNT2 
6 

MSGAD, 1 
GTADR+3 

PRINT 
QUT,- 

PRINT.Jt 
GTADR 

PRI/f.i 

S»/e2 

1/ 

/HINT 

*-* 

SENSE 

INT 

*-* 

8 

STOP 



READ SMS 

BYPASS PRINT ON 
♦NO, BRANCH 



SET INT VECTOR 
CARRIER RETURN 



GET MSG ADORS 
GET CHAR TO PRINT 
BR IF TERMINATOR 

STO FIRST CHAR 

STO SECOND CHAR 
PRINT FIRST CHAR 

PRINT SECOND CHAR 

INCRE MSG TA8LE ADORS 

8R IF LAST MSG SECTION 



SENSE OSH AND RESET 



PROG STOP WAIT 



3B007500 

3B00751O 

3B007520 

3B007530 

3B007540 

3B007550 

3B007560 

3B007570 

3B0075B0 

3B007590 

3B007600 

3B007610 

3B007620 

3B007630 

3B007640 

3B007650 

3B007660 

36007670 

3B007680 

3B007690 

3B007700 

3B007710 

3B007720 

3B007730 

36007740 

3B007750 

3B007 760 

3B007770 

3B0077B0 

3B007790 

3B007300 

3B00781O 

3B007820 

3B007830 

3B007840 

3B00785O 

3B007360 

3BO07870 

3B007880 

3B007890 

3B007900 

3B007910 

3B007920 

3B007930 

36007940 

3B007950 

3B007960 

3B007970 

3B007980 

3B007990 

3B008000 

3B008010 

3B008020 

3B008030 

3B008040 

3B008050 

3B008060 

3B008070 

3B008080 

3B008090 

3B008100 

3B008110 

3B008120 

38008130 

3B008140 

3B008150 

3B008160 

3B008170 
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04 70 9A9E 


MSG01 


DC 


/9A9E 


ST 


047E 3E62 




DC 


/3E62 


AR 


047F 9E21 




DC 


/9E21 


T 


0480 FFFF 


f 


DC 


/FFFF 




0481 3676 


MSG02 


DC 


Z3676 


EN 


0482 3221 




DC 


/3221 


D 


0483 FFFF 


9 


DC 


/FFFF 




0484 2622 


MSG03 


DC 


/2622 


HI 


0485 1626 




DC 


/1626 


GH 


0486 211E 




DC 


/211E 


C 


0487 5262 




DC 


/5262 


OR 


0488 3621 




DC 


/3621 


E 


0489 9E36 




DC 


/9E36 


TE 


048A 9A9E 




DC 


/9A9E 


ST 


048B FFFF 


* 
MSG04 


DC 


/FFFF 




043C 1E52 


DC 


/1E52 


CO 


048D 6236 




DC 


/6236 


RE 


048E 219A 




DC 


/219A 


S 


048F 22A2 




DC 


/22A2 


11 


0490 3621 




DC 


/3621 


E 


0491 FFFF 


* 
MSG05 


DC 


/FFFF 




0492 0936 


DC 


/0936 


SR E 


0493 6262 




DC 


/6262 


RR 


0494 2121 




DC 


/2121 




0495 FFFF 


4t 


DC 


/FFFF 




0496 629E 


MSG06 


DC 


/629E 


RT 


0497 7621 




DC 


/7621 


N 


0498 0000 




DC 


*-* 


XX 


0499 2121 




DC 


/2121 




049A FFFF 


* 
MSG07 


DC 


/FFFF 




0496 2112 


DC 


/2112 


F 


049C 8276 




DC 


/B276 


UN 


0490 1E21 




DC 


/1E21 


C 


049 E 0000 




DC 


*-* 


YY 


049F FFFF 




DC 


/FFFF 




04A0 0431 




ENO 


LDLNK 




NO STATEMENTS 


FLAGGED IN 


THE 


ABOVE ASSEMBLY 





38008180 

3B008190 

3B008200 

3B008210 

3B008220 

3B008230 

3B008240 

3B008250 

3B008260 

3B008270 

3B008280 

3B008290 

3 BOOB 300 

3B008310 

3B008320 

3B008330 

38008340 

3B008350 

3B008360 

3BOOB370 

3B008380 

3B008390 

3B008400 

3B008410 

3B008420 

3B008430 

36008440 

3B008450 

3B008460 

3B008470 

3B008480 

38008490 

38008500 

3B008510 

3B008520 

36008530 

36008540 

38008550 

3B008560 

36008570 

3B008580 

3B008590 



DATE 
EC NO. 



15FEB68 
420403 
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PAGE 



0360-0 

7 





C R 


S S 




NAME 


VALUE 




ADORS 


02E7 




ADRCK 


02AB 




ADVNC 


01A6 




ALTNT 


0280 




ALTOO 


03EF 




ALT01 


03F2 




ALT02 


03DF 




CHAR1 


0402 




CHAR2 


0403 




CHECK 


0323 




CHEX 


02C5 




CNTRL 


0196 




COMPL 


0282 




COUNT 


027F 




CR 


0408 




CRSU 


0161 




DOWN 


02F1 




END 


0418 




ENDPT 


02EB 




ERR 


036D 




ERROR 


0392 




ERRSW 


0400 




FFFF 


010A 




FILL 


0285 




FIND 


0352 




FLIP 


0293 




FLOAT 


02F9 




FNDSZ 


0185 




FUNNO 


040E 




FUN11 


01E0 




FUN12 


01E9 




FUN21 


0200 




FUN22 


0209 




FUN31 


022D 




FUN32 


023E 




FUN42 


0258 




FUN61 


026A 




FUN62 


0271 




GTADR 


0451 




GTOUT 


0441 




HFFFF 


02E9 




HOOAE 


040B 




HOOOA 


01D8 




H0001 


02 E8 




H0002 


0281 




H0004 


0283 




H0006 


040C 




HI 000 


01D7 




H5555 


01D6 




H7000 


040A 




H8000 


02EE 




INCRE 


02EC 




INT 


0475 




INVRT 


0350 




LDLNK 


0431 




LINK 


03F4 




LOKFN 


0378 




LOOP A 


03D6 




LPRTN 


01AC 




LRTN 


01DC 


DATE 


15FEB68 


EC NO. 


420403 



REFERENCE 
REFERENCES 

^"•°i F5 ' 01FB ' O216 '°21 A '021F, 0225, 0288, 028A.028C, 0290, 0294, 0295 
^^'n^'^f'"!* ' 02 ^' 0267 ' 0289 ' ^ ' 02 "'^" 02CF 0202 02D6 
o 2 ,^'^' 0301 ' 030E ' 03 12'°317,031A,031C,0320, 0325, 0326.032E 0332 
0337, 0338, 0340,0345, 0340, 0353, 03C3, 0302, 03E2.03E6 03E8 
0202,020B,02BF,02C3 
01A0 

0197, 024F, 0259, 03D6 

03DD 

03DE 

03F1.03F3 

03FE.045C 

0400, 045E 

026A, 0330, 0334 

02 33, 0246, 0208, 02DC 

01 FO, 02 10, 0248,0263, 0279 

0198, 0212, 0218, 021D,022B,022D,023C,023E, 0240, 025C027D, 0298, 02A6 

02AD,02C0,02C2, 0209, 02DB.02FD, 0308,0350 

0266, 0272, 0342, 034B, 0360 

03FC 

0171, 0184, 03F4, 0427, 0437 

01E9, 0209, 0244, 02F7 

01AA 

029F,02BA,02D3,02E2,02F5 

032C,033E,0376 

0299, 0283, 02CB, 0305, 0372, 03A1 ,03D4,03EC 

0194, 0382, 0390, 03C8 

01DD,021C,025A 

01DE,028E,0292 

0318, 0365, 0366, 036E 

01E2,01E8,02A4,02A9 

0251, 025E, 0300,0310, 0314 

016C0179 

019D.01E7, 0207, 0238, 0256, 026F,03A2,03B8 

01E6 

01EF 

0206 

020F 

0237 

024A 

0262 

026E 

0278 

0465, 046C 

0447 

027B,02A7,O2B6,02Cl,02CE,02DA,02F2,032B,033D, 0350, 035C, 0369,0374 

03EF,0456,045A 

039C 

0189 

0186, 01F0, 0227, 024D,0291,02DF, 0313, 0321, 0333, 034E ,03A4,03B0,03E0 

0258 

0271,0349 

0390 

0161 

02 11.022A 

03D8 

02FC 

02A3,02BE,0207,02EO,02F3 

03F8.0477 

0336 

04A0 

01 66, 0173, 01 78, 0397, 041C 

01E4.01ED, 0204, 020D, 0235, 0248, 0253, 0260, 026C, 0276, 0370,0385, 0387 
0380,0391 

03CA 

01C5,01C8,01CE 

01A9.01C7 
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N. 



LWRLM 


02EF 


MSGAD 


0409 


MSGEN 


0466 


MSG01 


0470 


MSG02 


0481 


MSG03 


0484 


MSG04 


048C 


MSG05 


0492 


MSG06 


0496 


MSG07 


049B 


NOTBL 


0410 


NWAIT 


03C6 


OUT 


0460 


PASS 


0284 


PRINT 


043B 


PRNIT 


0448 


PRNT1 


03FE 


PRNT2 


0400 


RDSWS 


03F6 


RETRN 


03FC 


RID 


01D9 


RTN1 


01DO 


RTN2 


01F1 


RTN3 


0211 


RTN4 


024D 


RTN5 


0265 


RTN6 


027B 


RTTBL 


01CF 


SAVE1 


0404 


SAVE2 


0406 


SENSE 


03FA 


SHAKE 


0335 


SIZE 


0106 


SLOBE 


02E6 


SLRTN 


01C4 


START 


018E 


STOP 


0479 


STORE 


0340 


STRTN 


01C2 


SVINT 


0439 


SHS 


040F 


TEMP 


02E0 


UP 


02DE 


UPRLM 


02F0 


VECTR 


03F8 


WAS 


02EA 


WORST 


0315 



046A, 0460, 0473 



01F1, 0287, 02E3,02F4,02FA, 0316, 0324, 0336 

0453,0454,0463 

0458 

0190, 01C0 

041 A 

0191,0418 

0182 

0181, 03AE 

01B7,01C1,03AF 

03AA,03BO 

01B2,03A6,0410 

03B3.03EE 

0445,0468 

0199, 0379, 037B, 0380 

017F,018E,01BE,03AC, 0418, 0441, 0443, 0451, 0466, 
043F 

045F 

0461 

019F, 0389, 039A,03C6,041F, 0425, 043C 
044F 

0193,01A6,01A8,01AC,01B1,01C0,03C0 

01D0 

01D1.01FF 

0102,0229 

0103,0255 

0104, 027E 

01D5 

01AF.01CF 

0395, 03CC 

044A.046F 

0476 

0274, 0344, 0347, 034F 

0162, 0168, 016E, 0170, 0175, 0185, 0188, 018C 

^r , ^^* ! 42,0286,0289,0298 ' 02 * 5 » 02A8 ' 02AE ' < >2B2,02B5,02CA,02CO 
0201, 02FE, 0304, 0307, 035F, 0364,0367, 0370, 0385, 0300, 030A.03E4.03EA 

0422 

03F9.047B 

0351 

01B0,01BC 

0429, 042C, 0433,0436 

01 A1,01B9,01CA,038A,039B,03B1,03C7,03F6,0420, 0426, 0430 
0355,0357 

OlEO, 0200,0214,0231, 02E4 

018A.01F7, 0221, 0280, 02E1,02F6,030F, 0310, 032F, 0346 
044C 

0297, 02B1,02C9, 0303, 0328, 033A.03B8 
0268, 031E, 0322 
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0000 

0960 03B1 



ABS 
ORG 
DC 



/0960 
/03B1 



PIO 



3961 
0/62 
0T63 
09 6*. 
0966 
09 68 
096A 
09 6C 



C071 
006F 
1010 

0400 0000 
CCOO OBFO 
0C80 09D2 
COO 0000 
4C20 0985 



096E C063 

096F 1001 

09 70 0061 

0971 4C10 0963 

0973 CCOO 03F0 
0975 DC80 0902 
0977 C400 0000 
0979 4C20 0985 



09 73 
097D 
097F 
0981 
0962 



CCOO OBFO 
OCOO 0000 
4400 0C23 
8C7A 
0C74 



09B3 300J 

0984 70DC 

0985 C04C 

0986 9t00 0AE4 
0938 0049 
0969 3001 

098A 4400 0C23 
09BC 1 8C65 
0980 0C6C 

098E 1010 
098F 0045 
0990 0400 0C09 



♦»*****♦****»**»»*»**»*»»»»»»***»**»«***»»#»*»*»** 

PROGRAM INITIALIZATION 
**»**»*******»•»»**»»»»*»*••»*»*****♦*»»»»»»»»»»»* 
FIND CORE SIZE 



RSIZ LO 
STO 
SLA 
STO 
LDO 
STO 
LD 
BSC 

LD 
SLA 
STO 
BSC 

LDD 
STD 
LD 
BSC 

LDD 

STD 

BSI 

DC 

DC 

WAIT 
MOX 



H1000 

SIZE 

16 



LINK 

SIZE 



FNDSZ.Z 

SIZE 

1 

SIZE 

CRSIZ+2,- 

LINK 
SIZE 

FNDSZ.Z 

LINK 



PRINT 

HSG05+/8000 

MSG04 

3 
CRSIZ 



SET BK CORE SIZE 

CLEAR AOORS 0000 

STO RESTART LIN. AGE 
OID URAP-ARCUND OCCUR 
*YES, BRANCH 



INCRE SIZE 9Y 4K 
IS SIZE OVER 32K 
•NO, BRANCH 



STO RESTART LINKAGE 
OID WRAP-AROUND OCCUR 
•YES, BRANCH 



PRINT ERROR MSG 



ERR, CANNOT FIND CORE SIZE 
RETRY 



CORRECT CO»lg SIZE 

HAH FOR SMS, SIZE IN ACC 

PRINT START MSG 



FNOSZ LO 
S 

STO 
WAIT 

• 

START BSI 
DC 
DC 

« 

SI A 
STO 
STO 



SIZE 
H0001 
SIZE 
1 

PRINT 

MSG01+/8000 

MSG03 

16 
RID 

ERRSH 



ROUTINE SEQUENCE CONTROL 





0992 10 10 




CNTRL SLA 




16 




0991 3 D4Q0 


0A7C 


STO 


L 


ALTNT 




0995 0400 


0A80 


STO 


L 


PASS 




0997 0400 


0A7E 


STO 


L 


COMPL 




0999 0400 


OCOA 


STO 


L 


FUNNO 




0993 OCOO 


0BF2 


XIO 


L 


ID5WS 




099D C400 


OCOB 


LD 


L 


SUS 




099F 3 1805 




SRA 




5 




09 AO 4CQ4 


a9co 


BSC 


L 


SLRTN,E 


DATE 


1SFEB63 










EC NO. 


420403 














READ SUS 

8R IF LOOP RTN SELECTED 



3B100020 

3B 100030 

3B100040 

3B100050 

3B100060 

3B 1000 70 

3B100080 

3B100090 

36100100 

3B100110 

3B100120 

3B 100130 

3B100140 

3B100150 

3B100160 

38100170 

38100180 

3B100190 

3B1002QO 

3B100210 

38100220 

3B100230 

3B100240 

38100250 

3B100260 

3B 100270 

IB' 00280 

38100290 

3B100300 

3B 1003 10 

3B100320 

3B100330 

3B100340 

3B100350 

3B100360 

38100370 

3B100380 

3B100390 

3B100400 

3B100410 

3B100420 

3B100430 

38 100440 

3B 100450 

3B100460 

3B 100470 

3B100480 

3B100490 

3B100500 

3B100510 

3B100520 

3B100530 

3B100540 

3B100550 

3B100560 

3B100570 

3B100580 

3B100590 

3B100600 

3B100610 

3B100620 

3B100630 

3B100640 

3B1O0650 

3B100660 

38 1006 70 

3B100680 

3B100690 



PROG ID 
PAGE 



03B1-0 
1 











* 










3B100700 






09A2 
09A4 
09A5 
09A6 


7401 
C030 
9032 
4C30 


0905 
0C14 


AOVNC 


MOX 
LD 
S 
BSC 


L 
L 


RIO.l 
RID 
LRTN 
END.-Z 


ADVANCE TO NEXT RTN 
BR IF END OF PROGRAM 


38100710 
3B100720 
3B100730 
3B1O0740 






09A8 


C02C 




* 
LPRTN 


LD 




RIO 




3B1O0750 
36100760 
3B1OO770 






09 A9 


4C08 


09A2 




BSC 


L 


ADVNC.+ 


BR IF RID IS ZERO 






09AB 
09 AC 


B01F 
0012 






A 
STO 




RTTBL 
STR7N+1 


SET RTN START ADDRS 


36100780 
3B100790 






09 AD 
09AE 


C027 
8400 


OCOC 




LD 
A 


L 


RIO 

NOTBL 




38100800 
36100810 






09B0 
0931 
09B3 


D001 
C400 
0400 


0000 
0C8O 




STO 

LO 

STO 


L 
L 


»+l 

»-» 
MSG06+2 


ENTER RTN NUMBER IN MSG 


3B100820 
36100830 
3B100840 






09B5 


C400 


OCOB 


* 


LD 


L 


SUS 




3B100850 
3B100860 






09B7 


1009 






SLA 




9 


RTN START MSG SELECTED 


36100870 






09B8 


4C10 


09 BE 


* 


BSC 


L 


STRTN, - 


•NO, BRANCH 


36100880 
38100890 






09BA 


4400 


0C23 




BSI 


L 


PRINT 


PRINT RTN START MSG 


3B100900 






09 BC 


8C65 






DC 




MSG01+/8000 


38100910 






09B0 


0C7E 




* 


DC 




MSG06 




3B100920 
3B1OO930 






09BE 


4C80 


0000 


STRTN 

• 


BSC 


I 


*-* 


START TEST ROUTINE 


36100940 
3B100950 






09C0 


1803 




SLRTN 


SRA 




3 


. 


38100960 






09C1 


4C18 


09A8 


* 


BSC 


L 


LPRTN, ♦- 


BR IF NO RTN SELECTED 


3B100970 
38100980 






09C3 


9014 






S 




LRTN 




36100990 






09C4 


4C30 


09 A8 




BSC 


L 


LPRTN, Z- BR IF INVALID RTN NO. 


36101000 












* 










36101010 






09C6 


C400 


OCOB 




LO 


L 


sus 




38101020 






09CB 


1808 






SRA 




8 




36101030 






09C9 


DOOB 






STO 




RID 


SELECT ROUTINE 


38101040 






09CA 


70DD 




• 
• 
• 


MDX 




LPRTN 
ROUTINE 


ADDRESS TABLE 


36101050 
36101060 
36101070 
38101080 






09CB 


09CB 




RTTBL 


DC 




RTTBL 




38101090 






09CC 


0909 






DC 




RTN1 




38101100 






09C0 


09ED 






DC 




RTN2 




38101110 






09CE 


OAOD 






DC 




RTN3 




3B10U20 






09CF 


0A49 






DC 




RTN4 




3B10U30 






09D0 


0A61 






DC 




RTN5 




3B101140 






0901 


0A77 




* 
* 
* 


DC 




RTN6 
PROGRAM 


CONSTANTS 


36101150 
38101160 
3B101170 
3B101180 






0902 


0000 




SIZE 


oc 




*-» 


CORE SIZE 


3B101190 






09D3 


1000 




HI 000 


DC 




/1000 




3B1O1200 






09 D4 


OOOA 




HOOOA 


DC 




/OOOA 




3B1O1210 






09D5 


0000 




RIO 


DC 




»-* 


ROUTINE NUMBER 


38101220 






09D6 


FFFF 




FFFF 


oc 




/FFFF 




3B101230 






09D7 


5555 




H5555 


DC 




/5555 




3B101240 






09D8 


0006 




LRTN 

* 


OC 




6 




3B101250 
38101260 












******»»»**»*****»***»***»**-***«««»»*«»»»»*»***»**» 


38101270 












• 










36101280 












* 






TEST ROUTINE OWE 


38101290 












* 










38101300 












***»*****»******»*♦****»****»***♦♦» *»*»»** *****«**« 


36101310 












• 










36101320 






0909 


COFC 




RTN1 


LD 




FFFF 




3B101330 






090A 


4400 


0A81 


• 


BSI 


L 


FILL 


FILL CORE UITH FFFF 


38101340 
18101350 






09DC 


4400 


OADA 


FUNU 


BSI 


L 


UP 


•NCRE LO* TO ri'GH CORE 


38101360 






09 DE 


4400 


0A8F 




BS! 


L 


FLIP 


" '» »ND STORE .'f)) 


3B10l370 




DATE 


15FEB68 














PROG ID 


om-« 


EC NO. 


420403 














PAGE 


1* 
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>, 



09E0 
09E2 


4400 
70F9 


0B74 


* 
FUN12 


BSI 
HDX 


L 


LOKFN 
FUNll 


09E3 
09h5 
09E7 


7401 
4400 
4400 


OCOA 
OAED 
0A8F 


MDX 
BSI 
BSI 


L 
L 
L 


FUNNO.l 

OONN 

FLIP 


09E9 
09 EB 


4400 
70F9 


0B74 




BSI 

MOX 


L 


LOKFN 
FUN12 



09EC 70A5 



09tD C400 OAEB 
09EF 0400 0AE3 
09F1 D480 0AE3 
09F3 F400 OAEC 
09F5 4C18 09FC 

09F7 C400 0AE3 
G9F9 8400 0AE4 
09FB 70F3 

09FC 4400 OADA 
09FE 4400 0AA7 

OAOO 4400 0B74 
0A02 70F9 

0A03 7401 OCOA 
0A05 4400 OAEO 
0A07 4400 0AA7 

OA09 4400 OB 74 
OAOB 70F9 

OAOC 708S 



OAOO C0C9 
OAOE 0400 0A7E 
0A10 4400 OADA 



0A12 
0A14 
0A16 
0A18 
0A19 
0A1B 
0A10 
0A1F 



0400 
C400 
0480 
FOBO 
D400 
C400 
F400 
4C1B 



0AE3 
0A7E 
0AE3 

0A7E 
0AE3 
OAEC 
0A26 



0A21 C400 0AE3 
0A23 B400 0AE4 
0A25 70EC 

0A26 COBO 



CK FOR LOCK ON ERR FUNC 

DECRE HIGH TO LOW CORE 
CK CORE AND STORE 0000 

CK FOR LOCK ON ERR FUNC 
MOX FUN12 

MOX CNTRL CO TO CONTROL 

• TEST ROUTINE TWO 

* 

FILL EACH CORE 
LOCATION WITH 
ADDRESS 



RTN2 LD 
STO 
STO 
EOR 
BSC 

* 

LD 

A 

MDX 



LHRLM 
AODRS 
AOORS 
UPRLH 
*+5,+- 

ADORS 
HOOOl 
RTN2+2 



BR LAST ADDRESS 
INCRE ADDRESS BY ONE 



INCRE LOU TO HIGH CORE 
CK AND COMPLEMENT 



FUN21 BSI L UP 

BSI L ADRCK 

» 

BSI L LOKFN 
MDX FUN21 

* 

HDX L FUNNOtl 

FUN22 BSI L DOWN 

BSI L ADRCK 
* 

BSI L LOKFN 

MDX FUN22 

MDX CNTRL 

* 

* TEST ROUTINE THREE 



CK FOR LOCK ON ERR 



OECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

LOCK ON FUNCTION 



RTN3 LD 
STO 
BSI 

STO 

LD 

STO 

EOR 

STO 

LD 

EOR 

BSC 

LD 

A 
MOX 

LD 



H5555 
COMPL 
UP 

ADORS 

COMPL 

ADDRS 

FFFF 

COMPL 

AOORS 

UPRLM 

**5t+- 

AODRS 
HOOOl 
RTN3+5 

H5555 



INCRE LOU TO HIGH CORE 



STORE 5555 AAAA PATTERN 

COMPLEMENT 

SET UP NEXT UORO 



BR IF LAST ADDRS 
INCRE AODRESS BY ONE 



3B1013BO 

3B101390 

3B101400 

3B101410 

3B101420 

3B101430 

3B101440 

3B101450 

3B101460 

3B101470 

3B101480 

3B101490 

3B101500 

3B101510 

3B101520 

38101530 

3B101540 

3B101550 

3B101560 

3B101570 

38101580 

3B 101590 

3B101600 

3B101610 

38101620 

3B101630 

38101640 

3B101650 

3B101660 

3B101670 

3B101680 

38101690 

3B101700 

3B101710 

3B101720 

3B101730 

3B101740 

3B101750 

3B101760 

3B101770 

3B101780 

3B101790 

3B101800 

3B101810 

38101820 

38101830 

38101840 

38101850 

3B101860 

3B101B70 

3B101880 

3B101890 

3B101900 

3B101910 

3B101920 

3B101930 

3B101940 

3B101950 

3B101960 

3B101970 

3B101980 

3B101990 

3B1O2O00 

3B102010 

3B102020 

3B102030 

3B102O40 

3B102050 



0A27 0400 0A7E 



STO 



COMPL 



0A29 





C400 


0A7E 


• 
FUN31 


LD 


L 


COMPL 


0A2B 





D400 


0AE2 




STO 


L 


SLDBE 


0A2D 





4400 


OADA 




BSI 


L 


UP 


0A2F 





4400 


0AC1 


* 


BSI 


L 


CHEX 


0A31 





4400 


0B74 


BSI 


L 


LOKFN 


0A33 





70F5 






HDX 




FUN31 


0A34 





7401 


OCOA 


* 


HDX 


L 


FUNNO, 


0A36 





C400 


0AE2 




LD 


L 


SLDBE 


0A38 





0400 


0A7E 





STO 


L 


COMPL 


0A3A 





C400 


0A7E 


FUN32 


LD 


L 


COMPL 


0A3C 





0400 


0A7E 




STO 


L 


COMPL 


0A3E 





D400 


0AE2 




STO 


L 


SLOBE 


0A40 





4400 


OAED 




BSI 


L 


DOWN 


0A42 





4400 


0AC1 





BSI 


L 


CHEX 


0A44 
0A46 






4400 
70F3 


0B74 




BSI 

MDX 


L 


LOKFN 
FUN32 



INCRE LOU TO HIGH CURE 
CK AND COMPLEMENT 

CK LOCK ON ERR 



DECRE HIGH TO LOW CORE 
CK AND COMPLEMENT 

CK LOCK ON ERROR 



0A47 4C00 0992 



BSC 



CNTRL 



• TEST ROUTINE FOUR 

* 

* 



0A49 
0A4B 
0A4C 
0A4D 








C400 
0030 
1010 
4400 


0AE4 
OAFS 


RTN4 


LD 
STO 
SLA 
BSI 


L 
L 


HOOOl 
ALTNT 
16 
FLOAT 


0A4F 
0A51 






4400 
70F7 


0874 


f 


BSI 
MOX 


L 


LOKFN 
RTN4 


QA52 





7401 


OCOA 





MDX 


L 


FUNNO. 1 


0A54 
0A55 
0A56 
OA58 
0A5A 









C028 
D026 
C400 
D400 
4400 


09D6 
0A7E 
OAFS 


FUN42 


LD 

STO 

LD 

STO 

BSI 


L 
L 
L 


HO 002 

ALTNT 

FFFF 

COMPL 

FLOAT 


0A5C 
0A5E 






4400 
70F5 


0B74 




BSI 
MOX 


L 


LOKFN 
FUN42 



CK EACH CORE 
BIT BY BIT, 



LOCATION 
ONE BIT ON 



CK FOR LOCK ON ERR 



CK EACH CORE 
BIT BY BIT, 



LOCATION 
ONE BIT OFF. 



CK FOR LOCK ON ERR 



0A5F 4C00 0992 



BSC 



CNTRL 



* 

* TEST ROUTINE FIVE 



STORE WORST CASE PATTERN 



0A61 
0A62 
0A64 







1010 
0400 
4400 


0A7B 
0B11 


RTN5 


SLA 
STO 

BSI 


L 
L 


16 

COUNT 

WORST 


0A66 





4400 


0B1F 


FUN61 

* 


BSI 


L 


CHECK 


0A68 
0A6A 






4400 
70FB 


0B74 


BSI 

MOX 


L 


LOKFN 
FUN61 



CK EACH CORE LOCATION 



CK LOCK ON ERROR 



0A6B 7401 OCOA 



MDX 



FUNNO, 1 



3B102060 

3B102070 

3B1020B0 

3B 102090 

3B102100 

3B102110 

3B102120 

3B102130 

3B102140 

3B 102 150 

3B102160 

3B102170 

3B102180 

3B102190 

38102200 

3B102210 

3B102220 

3B102230 

3B102240 

3B102250 

3B102260 

3B102270 

3B102280 

3B102290 

3B102300 

3B10231O 

3*102320 

3B 102330 

3B102340 

3B102350 

3B102360 

3B102370 

3bl023SO 

3B1023VO 

3B102400 

3B102410 

3B102420 

3D102430 

3B102440 

3B102450 

3B102460 

3B102470 

3B102480 

38 102490 

3B102500 

3B102510 

3B102520 

3B102530 

3B102S40 

3B102550 

3B102560 

3B102570 

3B102580 

3B102590 

3B102600 

3B 1026 10 

3B102620 

38102630 

3B102640 

38 102650 

3B102660 

3B 1026 70 

3B102680 

3B 102690 

3B102700 

3B102710 

3B102720 

3B102730 
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LSFEB68 
420403 



PROG ID 
PAGE 



03B1-0 
2A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
I OH CORE FUNCTION TEST 



PART NU. 2243967 
PAGE 3 



0A6D r.oii 

0A6E 0400 0A7B 

0A70 4400 0B31 

0A72 4400 0B74 
0A74 70F8 

OA75 4C00 0992 



OA77 C400 0AE5 
OA75 D00'» 
0A7A 70E6 



0A7B 
0A7C 
0A7D 



0000 
0000 
0002 
0A7E 0000 
0A7F 0004 
OABO 0000 



OAttl 0000 
0A82 D05F 












0AH3 
0AB4 
0A»5 
0A86 
0A88 
0A89 



C067 

D05E 

C05C 

0480 0AE3 

C05A 

FQS2 



OABA 4CT8 0A81 

0A8C CQ56 
0A8D 8056 
0A8E 70F5 



0A8F 
0A90 
0A91 
0A93 
0A94 
0A95 



0000 
D052 

C480 0AE3 
D052 
F040 
4420 0B8E 



0A97 C0E6 
0A98 0480 0*E3 
0A9A C048 
0A9B F04B 
0A9C 4C18 oaai 

0A9E C044 
0A9F 8048 
OAAO 70EF 



FUN62 


LO 




H0004 




3B102740 




STO 


L 


COUNT 




3B102750 




BSI 


L 


SHAKE 


CK AND COMPL 4 TIMES 


3B102760 


* 










3B102770 




BSI 


L 


LOKFN 


CK LOCK ON ERROR 


3B102780 




MDX 




FUN62 




3B102790 


* 










3B102800 




BSC 


L 


CNTRL 




3B102810 


* 










3B102820 


********•******«*****•«•******«*•**•••**»***•«•***• 


3B102830 


* 










3B102840 


* 






TEST ROUTiSt SIX 


3B102350 


* 










38102860 


>t»iM»»»»*t*tt.tm»tn!>*t»t»t*t«tt-itittmn»t.»t 


3B102870 


* 










3B102880 


RTN6 


LD 


L 


HFFFF 


SET UP COMPLEMENT 


3B102890 




STO 




COMPL 


HORST CASE PATTERN 


3B102900 




MOX 




RTN5 




3B102910 


* 










38102920 


**»***«*»***» ***»*♦» t,l»M<t<H»»l» »»t>!»*»*{t»»i;4tt 


3B102930 


* 










3B102940 


* 






SUBROUTINES FOR RTNS 1-6 


3B102950 


* 










3B102960 


ft************************************************** 


3B1029 70 


» 










3B1029S0 


* 






PROGRAM 


CONSTANTS 


3B102990 


* 










3B103000 


COUNT 


DC 




*-* 




3B103010 


ALTNT 


DC 




• -* 




3B103020 


H0002 


DC 




/0002 




3B 103030 


COMPL 


DC 




*-* 




3B103040 


H0004 


DC 




/00O4 




3B103050 


PASS 


DC 




*-♦ 




3B103C60 


* 










3B103070 


* 






FILL CORE WITH ONES 


3B1030BO 


» 










36103090 


FILL 


DC 




*-* 




3B103L00 




STO 




SLDBE 




3B103U0 




LO 




LURLM 


GET STARTING 1DDRESS 


36103120 




STO 




ADORS 




3B 103 1.30 




LD 




SLOBE 


GET DATA HORO 


3B103UO 




STO 


I 


AOORS 


STO DATA HORD 


3B10JS50 




LO 




IDDRS 




3B103U0 




EOR 




UPRLM 




381031 TO 




BSC 


I 


FILL ,+- 


BR IF LAST ADDRSii 


38103180 


* 










3B103M0 




LD 




A DORS 




3B103J00 




k 




HOOOl 


1NCRE ADDRESS BY OWE 


3B103>10 




MDX 




FILL»3 




3B103220 


* 










3B103230 


> 






CK AND COMPLEMENT OOOO/FFFF PATTERN 


38103240 


* 










3B103250 


FLIP 


DC 




•-* 




3B103260 




STO 




ADDRS 


SAVE STARTING ADDRESS 


3B103270 




LD 


I 


ADORS 




3B103280 




STO 




HAS 




3B103290 




EOR 




SLDBE 


DATA HORO CORRECT 


3B103300 




BSI 


L 


ERROR, Z 


*N0, BRANCH TO ERROR RTN 


3B103310 


* 










3B103320 




LD 




COMPL 




3B103330 




STO 


I 


ADDRS 


STORE NEH WORD 


3B103340 




LD 




ADDRS 




3B103350 




EOR 




E.MDPT 




3B103360 




BSC. 


L 


*+!,>- 


BR IF LAST ADDRESS 


3B10337Q 


* 










3B10?380 




LD 




ADORS 




3B103390 




A 




INC RE 


JJiCRE ADDRESS 


36103400 




MDX 




FLIPH 




3B103410 
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0AA1 





C040 






LD 


SLDBE 


0AA2 





OOOB 






STO 


COMPL 


0AA3 





F041 






EOR 


HFFFF 


0AA4 





003D 






STO 


SLDBE 


0AA5 





4C80 


0A8F 


* 
* 


BSC 


I FLIP 

CK AND i 


0AA7 





0000 




ADRCK 


DC 


*-* 


0AA8 





D03A 






STO 


AOORS 


0AA9 





F0D4 






EOR 


COMPL 


OAAA 





D037 






sro 


SLOBE 


OAAB 





C480 


0AE3 




LD 


I ADORS 


OAAO 





0038 






STO 


HAS 


OAAE 





F033 






EOR 


SLDBE 


OAAF 





4420 


0B3E 


£ 


BSI L ERROR, 2 


0AB1 





C030 






LD 


SLOBE 


0AB2 





F032 






EOR 


HFFFF 


0AB3 





0480 


0AE3 




STO ! 


[ ADDRS 


0AB5 





C02D 






LD 


ADORS 


0A86 





F030 






EOR 


ENDPT 


0AB7 





4C18 


0A8C 


♦ 


BSC 1 


. «+3,+- 


0AB9 





C029 




LO 


ADDRS 


OABA 





302D 






A 


INCRE 


OABB 





70EC 




f 


MOX 


ADRCK+1 


OABC 





C0C1 






LD 


COMPL 


OABD 





F027 






EOR 


HFFFF 


OABE 





DOBF 






STO 


COMPL 


OABF 





4C80 


0AA7 


* 
* 

0. 


BSC : 


1 ADRCK 












CK AND 


0AC1 





0000 




CHEX 


DC 


»-* 


0AC2 





D020 






STO 


ADDRS 


0AC3 





C480 


0AE3 




LO 1 


[ ADORS 


0AC5 





0020 






STO 


HAS 


0AC6 





F01B 






EOR 


SLDBE 


0AC7 





4420 


OB 36 


* 


BSI L ERROR, 2 


0AC9 





C018 




LD 


SLDBE 


OACA 





F01A 






EOR 


HFFFF 


0AC8 





D480 


OAfc ) 




STO 


I ADDRS 


OACD 





D014 






STO 


SLDBE 


QACE 





C014 






LO 


ADDRS 


OACF 





F017 






EOR 


ENDPT 


OADO 





4C18 


0A05 


£ 


BSC L *+3,+- 


0AD2 





noio 






LD 


ADORS 


0AD3 





3014 






A 


INCRE 


0AD4 





70ED 




* 


MDX 


CHEX+1 


0A05 





CO A 8 




LD 


COMPL 


0AD6 





FOOE 






EOR 


HFFFF 


0AD7 





D0A6 






STO 


COMPL 


0A08 





4C80 


0AC1 


* 
• 


BSC I 


! CHEX 

INCREMEI 


OAOA 





0000 




UP 


DC 


«-* 


OADB 





C008 






LD 


HOOOl 


DADC 





DDOB 






STO 


INCRE 


OADD 





COOE 






LD 


UPRLM 


DADE 





0008 






STO 


ENDPT 


DAUF 





COOB 






i,0 


LMRLM 



CK AND COMPLEMENT ADDRESS PATTERN 



DATA HORD CORRECT 
*N0, BRANCH 



STORE COMPLEMENT 
BR IF LAST ADDRESS 
INCRE ADDRESS 



CK AND COMPLEMENT 5555/AAAA PATTERN 



DATA HORD CORRECT 
*N0, BRANCH 



STORE COMPLEMENT 



BR If LAST »CORESS 



INCRE 1D0RESS 



INCREMENT FROM LOHER W UPPE-* CORE 



SET UP AOORS INC RE HE.' 



SET LAST 9DDXF5S 
SET FIRST I'HMES: 



38103420 
3B103430 
3B103440 
3B103450 
3B103460 
3bl03470 
3B103480 
3B 103490 
3B1035OO 
3B103510 
3B103520 
iBl03530 
3B103540 
13103530 
38103560 
3t)103570 
3B103580 
SB103590 
3B103600 
3B103610 
3B103620 
3B103630 
3B103640 
3U103650 
3B103660 
3B1U3670 
3B1036B0 
3B103690 
3B1037O0 
3bl0371O 
3B103720 
3B103730 
3B103740 
3B103750 
3B103760 
3B193770 
3B103780 
3B103 79O 
3B103800 
3B103810 
3B103820 
3B103830 
3B103840 
3B103850 
5B103860 
JB10387O 
3B103880 
3B103890 
3B10J900 
3B103910 
3B103920 
3B10393 •! 
3B103940 
3B103950 
3B103960 
3B103970 
3B103980 
3B103990 
3B104000 
3B104010 
3B104020 
3B104030 
38104040 
3B104050 
JB104060 
3310407'} 
38104080 
3bl0*O9'l 



OATE 
EC NO, 
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OAEO 4C80 OADA 



BSC 



X} 



0AE2 
0AE3 
0AE4 
0AE5 
0AE6 
0Afc7 
0AE8 
0AE9 
OAEA 
OAEB 
OAEC 



0000 
0000 
0001 
FFFF 
0000 
0000 
0000 
0000 
8000 
FFF6 
0900 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



OAbO 
OAfcE 
OAEF 
OAFO 
0AF1 
0AF2 
0AF3 



0AF5 
0AF6 
0AF7 
0AF8 
0AF9 
OAFA 
OAFB 
OAFD 
OAFF 
OBOO 
0B01 



0000 
C0F6 
D0F8 
COFA 
D0F5 
C0F9 
AC 80 OAEO 



0000 

C0F4 

DOEB 

C0F1 

F084 

D0E7 

D480 0AE3 

C480 0AE3 

S0E6 

F0E1 

4420 0B8E 



0B03 CODE 
OB04 F400 0A7E 
0B06 4C04 OBOA 

0B08 1801 
0B09 70EF 

OBOA CCD8 
OBOB FOEO 
OBOC 4C9B OAFS 

OBOE C0D4 
OBOF 8004 
OB 10 70E6 



OB 11 
0B12 
0B13 
0B14 
0B16 
0B18 
OB 19 
0B1A 



0000 
C0D8 
DOCF 

4400 0B4E 
0480 0AE3 
COCA 
F0D2 
4C98 OB 11 



0B1C C0C6 
0B1D 80C6 



• 

SLOBE 

ADORS 

H0001 

HFFFF 

HAS 

ENDPT 

INCRE 

TEMP 

H8000 

LHRLM 

UPRLH 

• 

* 

DOWN DC 
LD 
STO 
LD 
STO 
LO 
BSC I 

* 

FLOAT DC 
LO 
STO 
LO 
EOR 
STO 
STO 1 
LO I 
STO 
EOR 
BSI L 

LO 

EOR L 
BSC L 

• 

SRA 
MOX 

» 

LD 
EOR 
BSC I 

• 

LD 

A 

MDX 

• 

WORST DC 
LO 
STO 
BSI I 
STO 
LD 
EOR 
BSC i 

LO 
A 



UP 

PROGRAM CONSTANTS 

*-• 
•-* 
/0001 
/FFFF 

*-• 
•-• 
*-* 



/8000 
/FFF6 
/0900 

DECREMENT FROM UPPER TO LOWER CORE 
SET UP ADDRESS INCRE 



•-» 

HFFFF 

INCRE 

LWRLM 

ENDPT 

UPRLM 

DOWN 



CHECK BIT BY BIT PATTERN 



SET UP LAST ADDRESS 
SET UP FIRST AODRESS 



*-• 

LHRLM 

AODRS 

H8000 

COHPL 

SLDBE 

ADDRS 

AODRS 

HAS 

SLDBE 

ERROR, I 

SLOBE 
COMPL 
**2,E 

1 
FLOAT+4 

AODRS 
UPRLM 
FLOAT, ♦- 

AODRS 
H0001 
FLOAT+2 



SAVE ADDRESS 



STORE DATA WORD 



DATA CORRECT 
•NO, BRANCH 



LAST SHIFT 
•NO, BRANCH 

SHIFT DATA 



BR IF LAST AODRESS 
INCRE AODRESS 



STORE WORST CASE PATTERN 



»-» 

LWRLM 

ADDRS 

FIND 

AODRS 

ADDRS 

UPRLM 

WORST, ♦- 

ADDRS 
H0001 



SAVE ADDRESS 

FIND IF 0000 OR FFFF 

STORE DATA 



BR IF LAST AODRESS 
INCRE ADDRESS 



38104100 

3B104110 

3B104120 

3B104130 

3B104140 

3B 104150 

3B104160 

3B 104170 

3B104180 

3B104190 

3B1 04200 

3B104210 

3B104220 

3B 104230 

3B 104240 

3B 1042 50 

3B104260 

3B104270 

3B104280 

3B 104290 

3B104300 

3B104310 

3B104320 

3B 104330 

3B104340 

3B 104350 

381043*0 

3B104370 

3B104380 

3B104390 

3B104400 

3B104410 

3B104420 

3B 104430 

3B104440 

3B104450 

3B104460 

3B 104470 

38104480 

3B 104490 

3B104500 

3B104510 

3B104520 

38104530 

38104540 

3B104550 

3B104560 

3B 104570 

38104580 

3B 104590 

38 104600 

3B 1046 10 

3B104620 

3B 104630 

3B104640 

3B 104650 

3B104660 

3B 1046 70 

3B104680 

3B104690 

3B104700 

3B104710 

3B104720 

3B 104730 

3B104740 

3B104750 

3B104760 

3B104770 



0B1E 70F4 



OB IF 0000 
0B20 COCA 
0B21 00C1 
0822 C480 0AE3 
0B24 D0C1 
0B25 4C18 0B2A 

OB 2 7 FOBD 
0828 4420 0869 

082 A COBS 
0B2B FOCO 
0B2C 4C9S 0B1F 

0B2E C0B4 
0B2F 8084 
0B30 70FO 



MDX 

* 

* 

• 

CHECK DC 
LD 
STO 
LD 
STO 
BSC 



WORST+2 

CHECK WORST CASE PATTERN 



0B31 
0B32 
0B33 
0B34 
0B36 
0837 



0000 
COBB 
DOAF 

C480 0AE3 
OOAF 
4C18 084C 



0839 FOAB 

OB 3 A 4420 0B69 

08 3C D480 0AE3 
0B3E 74FF 0A7B 
OB40 70F3 

0B41 C0A1 
0B42 F0A9 
0B43 4C98 0B31 

0B45 C400 0A7F 
0B47 0400 0A7B 
0B49 C099 
0B4A 8099 
0B4B 70E7 

0B4C F098 
0B40 70EE 



0B4E 
0B4F 
0B50 
0B51 
OB52 
0B53 
0B54 



0000 
C093 
1806 
D097 
1802 
F095 
4C04 0858 



0836 1010 
0B57 7001 

0858 C08C 
0B59 F400 0A7E 
OBSB D086 
065C C400 0A7B 



EOR 
BSI 

LD 

EOR 

BSC 

* 

LD 

A 
MOX 

• 

• 

SHAKE DC 
LO 
STO 
LO 
STO 
BSC 
* 

EOR 
BSI 
• 

STORE STO 
MDX 
MOX 
* 

LO 
EOR 
BSC 
• 

LD 
STO 
LO 
A 

MOX 
• 

INVRT EOR 
MOX 

• 

FIND OC 
LD 
SRA 
STO 
SRA 
EOR 
BSC 

SLA 
MDX 

LO 

EOR 

STO 

LD 



•-* 

LWRLM 

ADORS 
I ADDRS 

WAS 
L •♦3,+- 

HFFFF 
L ERR,Z 

AODRS 

UPRLM 

I CHECK, ♦- 



ADDRS 
H0001 
CHECK+2 



SAVE ADDRESS 



BR IF DATA ZERO 

COMPLEMENT DATA 

BR TO ERROR RTN IF NOT 



BR IF LAST AODRESS 
INCRE ADDRESS 



CK AND COMPLEMENT 4 TIMES 



*-• 
LHRLM 
ADORS 
ADDRS 
HAS 
INVRT, +- 

HFFFF 
ERR,Z 



I ADDRS 
L COUNT, -1 

SHAKE* 3 

ADORS 

UPRLM 

I SHAKE, ♦- 



H0004 
COUNT 
AODRS 
H0001 
SHAKE+2 

HFFFF 
STORE 



SAVE ADORESS 



BR DATA WORO ZERO 

COMPL DATA 

BR IF NOT ZERO 

STORE NEW DATA 



BR IF LAST ADDRESS 

INCRE ADDRESS 
COMPLEMENT DATA 



DETERMINE IF OATA S/B 0000 OR FFFF 



*-* 

ADDRS 

6 

TEMP 

2 

TEMP 

•♦2.E 

16 
• ♦I 

HFFFF 
COMPL 
SLDBE 
COUNT 



AODRS BITS 7 AND 9 
BOTH OR BOTH 1 
•NO, BRANCH 



COMPLEMENT DATA FOR 
COMPLEMENT WORST CASE 

DATA COMPL ODD NO. TIMES 



3B104780 

3B104790 

3B104800 

3B104B10 

3B104B20 

3B 104830 

3B104840 

3B104850 

3B104860 

3B104870 

3B104880 

3B104890 

3B104900 

38104910 

3B104920 

3B 104930 

3B104940 

3B104950 

38104960 

3B 1049 70 

3B104980 

38 104990 

3B105000 

38105010 

38105020 

38105030 

3B105040 

3B1O505O 

38105060 

3B105070 

3B105080 

3B 105090 

3B105100 

38105110 

3B105120 

38105130 

3B105140 

3B105150 

3B105160 

3B105170 

3B105180 

38105190 

38105200 

3B105210 

3B105220 

3B105230 

38105240 

3B105250 

3B105260 

3B105270 

3B105280 

3B 105290 

38105300 

38105310 

38105320 

3B105330 

3B105340 

3B105350 

3B105360 

3B105370 

38105380 

3B 105390 

3BIO5400 

3B105410 

3B105420 

38105430 

3B105440 

3B105450 



DATE 
EC NO. 



15FEB68 
420403 



PROG 10 
PAGE 



03B1-0 

4 



DATE 
EC NO. 



15FEB68 
420403 



PROG ID 
PAGE 



03B1-0 
4A 
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LOW CORE FUNCTION TEST 



PART NU. 2243967 
PAGE «,* 



085E 4C04 0B63 

0860 C081 

0B61 4C80 0B4E 

0B63 C400 0AE2 
0B65 F400 0AE5 
0B67 4C80 0B4E 



0B69 0000 

0B6A 4400 0B4E 

0B6C D400 0AE2 

0B6E 4'»00 0B8E 

0B70 F<tOO 0AE5 

OB 72 4C80 0B69 



0B74 0000 
OB 75 7401 0A80 
OB 77 C400 OA80 
0B79 4C84 0B74 
0B7B 1010 
0B7C 0400 0A80 
0B7E 7400 0C09 
0B80 7004 

0B81 7401 0B74 
0B83 4C80 0B74 

0B65 086C 

0B86 C400 OCOB 

0B88 100C 

0889 4CA8 OB 74 

OBBB 1010 
0B8C D07C 
0B8D 70F3 



8SC L *+3,E 



LD 



SLOBE 



BSC 1 FIND 



LD 
EOR 



3L0BE 
HFFFF 



•YESt BRANCH 



COMPLEMENT DATA 



* 
ERR 



BSC I FIND 

ERROR IN WORST CASE PATTERN 



DC 

BSI 

STO 

BSI 

EOR 

BSC 

LOKFN DC 
MOX 
LD 
BSC 
SLA 
STO 
MOX 
MOX 



*-« 

FIND 

SLDBE 

ERROR 

HFFFF 

ERR 



FIND GOOD DATA 
GO TO ERROR RTN 



CK PASS COUNT AND LOCK ON ERR 



*-* 
L PASS.l 
L PASS 
I LOKFN, E 

lb 
L PASS 
L ERRSU 

*+4 



MDX L 
BSC I 

XIO 

LO L 
SLA 



LOKFN, 1 
LOKFN 

RDSWS 
SMS 

12 



BSC 1 LOKFN, I* 



SLA 
STO 

MOX 



16 

ERRSW 

LOXFN+13 



BR IF COUNT OOD 



ERROR SW ON 
♦YES BRANCH 

AOD ONE TO RETURN 



READ SWITCHES 

LOCK ON ERR FUNC SELECTED 
*YES, BRANCH 



CLEAR ERROR SW 





0B8E 





0000 




ERROR DC 




*-» 




OBSF 





CC.JO 


0000 


LOO 


i. 







0891 





OCOO 


OCOO 


STO 


!. 


SAVE1 




0B93 





C85C 




LDO 




LINK 




0B94 





OCOO 


0000 


STD 


1. 







0B96 





085B 




XIO 




acsws 




0897 





C073 




LO 




sws 




0898 





E06E 




AND 




MOOAE 




0899 





F06E 




EOR 




H0006 




0B9A 





4C20 


0B9E 


BSC 


L 


* + 2,Z 




C39C 





3007 




* 

WAIT 




7 




0B9D 





70F5 




MOX 




ERA0R+5 




089E 





C400 


OCOA 


LD 


L 


FUNNO 




OB40 





8400 


0AE4 


A 


L 


MOOOl 




03A2 





8069 




A 




N0T9L 




OB a 3 





0001 




STO 




*n 




08A4 





C4J0 


0000 


LD 


L 


■ * 




0BA6 





D400 


0C36 


STO 


L 


MSC0 7*3 




08A8 





4400 


OC23 


asi 


L 


PRINT 


DAT? 


15FEB68 










ec mj, 


420403 













* 

* ERROR ROUTINE 

* 

* 



SET UP RESTART 
READ SWS 



ILLEGAL SWITCH COMBINATION 
*N0, BRANCH 

ERR-ILLEGAL SWS 



PUT FUNC. NO. \H .1SG 
PRINT ERROR MSG 



3B105460 

3B10S470 

3B105480 

3B105490 

3B105500 

3B105510 

3B105520 

3B105530 

3B105540 

3B10555O 

3B10S560 

3B10S570 

3B105580 

3B105590 

3B10S600 

3B105610 

3B105620 

3B105630 

3B105640 

3B105650 

3B105S60 

3B105670 

3B105680 

3B105690 

3B105700 

3B105710 

3B105720 

3B10S730 

3B105740 

3B105750 

3B105760 

3B105770 

3B1057<SO 

3810579b 

3B105800 

3B105810 

38105320 

3B105330 

381058^0 

IB 105350 

38105860 

38105870 

33105810 

1810585)0 

33105903 

3B1057'0 

3B105920 

IB 10 59)0 

3B10S?iO 

3B105950 

3B105960 

3B105970 

3B105930 

38105)90 

3B106000 

3B106010 

36106020 

3B106030 

38106040 

3B106050 

3B106060 

3B106070 

38106080 

3B106090 

36106100 

3B 106 110 

3B106120 

3B10613D 



PROC 
PAGE 



03B1-0 





UBAA U 8C7A 
OBAB 8C7E 
OBAC 0C83 


* 
* 

* 


DC 
DC 
DC 




MSG05+/8000 
MSG06*/8000 
HSG07 




OBAO C050 
OBAE 100E 
OBAF 4C28 0BC2 

0BB1 C400 0AE2 
0BB3 1890 
0BB4 C400 0AE6 
0BB6 3004 


LD 
SLA 
BSC L 

LO L 
SRT 

LD L 
WAIT 


SWS 

14 

NWAIT, Z+ 

SLDBE 

16 

WAS 

4 


BY IF BYPASS WAIT 

GET GOOD OATA 
PUT IN 
BAD DATA IN A 
ERROR WAIT 




0BB7 C400 OCOA 
0BB9 8400 0AE4 
OBBB 1888 
OBBC C400 09D5 
OBBE 1888 
OBBF C400 0AE3 
OBCl 3005 


* 


LD 

A 

SRT 

LD 

SRT 

LD 

WAIT 


L 
L 

L 

L 


FUNNO 
H0001 

6 
RID 

8 

ADORS 

5 


PUT FUNCTION NO. 
AND RTN NO. 
IN g REG 
ADDRS IN ACC 
ERROR WAIT 




0BC2 082F 
0BC3 C047 
0BC4 0044 
0BC5 1008 
0BC6 4C28 0B02 


NWAIT XIO 
LO 
STO 
SLA 
BSC 

* 


L 


RDSWS 
SWS 
ERRSW 
8 
LOOPA, Z+ 


READ SWS 

SET ERROR SWITCH 

BR TO LOOP ADDRESS 




0BC8 CCOO OCOO 
OBCA OCOO 0000 
OBCC C400 0AE2 
OBCE D480 0AE3 
OBDO 4C80 0B8E 
0BD2 C400 0A7C 


LDO 
STO 
LD 
STO 
BSC 
LOOPA LD 


L 
L 
L 
I 

I 
L 


SAVE1 



SLOBE 

jtODRS 

ERROR 

ALTNT 


* 




0B04 B031 
0BD5 0001 
0BD6 C400 0AE2 
OB08 7000 


* 


A 

STO 
LD 
MOX 


L 


H7000 

*+l 

SLOBE 

• 


FIND LAST GOOD DATA 
WORD STOREO 




0BD9 7011 
OBOA 7013 




MDX 
MDX 




ALTOO 
ALT01 






OBOB 1001 
OBDC 8400 0AE4 
OBOE 0480 0AE3 
OBEO C400 0AE2 
0BE2 D480 0AE3 
0BE4 C480 0AE3 
CBE6 F400 0AE2 
0BE8 4C20 OBBF 


ALT02 

jft 


SLA 

A 

STO 

LD 

STO 

LD 

EOR 

BSC 


L 

1 

L 
i 

I 
L 
L 


1 

H0001 
AODRS 
SLDBE 
ADORS 
AODRS 
SLOBE 
E«RCR*1,Z 


STO LAST GOOD DATA 

STO LAST UAO DATA 

DATA GOOD NOW 
*N0, BRANCH 




OBEA 7007 


t 


MDX 




NWAIT 






08EB F400 0AE5 
OBED 70F0 


ALTOO 

* 


EOR 

MDX 


L 


HFFFF 
ALT02*3 






OBEE 1001 
OBEF 70EE 


ALT01 

* 
* 
* 


SLA 
MOX 




1 
ALT02+3 

CONSTANTS 


IOCC TABLE 




OBFO 0000 
3BF0 4C00 0961 
0BF2 OCOB 
0BF3 3A00 
0BF4 0C5D 
0BF5 0C61 
OBi-6 0000 


LINK 
RDSWS 

VECTR 

SENSE 


8SS 

8SC 

DC 

DC 

DC 

DC 

DC 


L 


CRSIZ 

SWS 

/3A00 

INT 

STOP 






DATE 
EC NO. 


15F£B6B 
420403 













3B 106 140 

3B106150 

3B106160 

3B106170 

3B106180 

33106190 

3B106200 

3B 1062 10 

3B106220 

3B106230 

3B 106 240 

36106250 

3B106260 

38106270 

3B106280 

3bl06290 

3B106 300 

38106310 

38106 320 

38106330 

3B106 340 

38106350 

3B106 360 

3B106370 

3B106380 

3B106390 

38106400 

38106410 

3B106420 

38106430 

3B106440 

36106450 

3B106460 

3B106470 

38106480 

3B106490 

3B106 500 

36106510 

3B106520 

3B106530 

3B106 540 

3B106550 

3B106 560 

3B1065 70 

3B10o530 

3BlQo590 

3B106600 

3B106610 

38106620 

38 106630 

3B106S40 

3B106650 

3B106660 

3B106670 

3BI 06680 

38106690 

3B106700 

3B106710 

3B106720 

3B106730 

38106740 

38106750 

38106760 

3B106770 

3B106780 

3B106790 

3BIO6 80O 

18104310 



°KQG ID 
PASE 



03B1-0 
SA 
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>* 



0BF7 





0F01 




DC 


/0F01 




0BF8 





0C04 


RETRN 


DC 


CR 




0BF9 





0900 




DC 


/0900 




OBFA 





OBFE 


PRNT1 


DC 


CHAR1 




OBFB 





0900 




DC 


/0900 




OBFC 





OBFF 


PRNT2 


DC 


CHAR2 




OBFD 





0900 




DC 


/0900 




OBFE 





0000 


CHAR1 


DC 


*-* 




OBFF 





0000 


CHAR2 


DC 


*-» 




OCOO 





0000 


SAVE1 


DC 


»-* 




0C01 





0000 




DC 


*-» 




OC02 





0000 


SAVE2 


DC 


*-* 




0C03 





0000 




DC 







0C04 





8500 


CR 


DC 


/8500 




0C05 





0000 


MSGAO 


DC 


*-* 




0C06 





7000 


H7000 


DC 


/7000 




0C07 





OOAE 


HOOAE 


DC 


/OOAE 




0C08 





0006 


H0006 


DC 


/0006 




0C09 





0000 


ERRSH 


DC 







OCOA 





0000 


FUNNO 


DC 


*-» 




OCOB 





0000 


SUS 


DC 


*-» 




OCOC 





OCOC 


NOTBL 


DC 


NOTBL 




OCOD 





C4FC 




DC 


/C4FC 


01 


OCOE 





C4D8 




DC 


/C4D8 


02 


OCOF 





C4DC 




DC 


/C4DC 


03 


0C10 





C4F0 




DC 


/C4F0 


04 


ocii 





C4F4 




DC 


/C4F4 


05 


0C12 





C4D0 




DC 


/C4D0 


06 


0C13 





C4D4 




DC 


/C4D4 


07 



**************************** ********************** 
PROGRAM END ROUTINE 

*************♦***»»»»»»**»*******♦****♦*«*♦**»»*»» 



0C14 





4400 


0C23 


END 


BSI 


L 


PRINT 


PRINT END NSC 


0C16 





8C69 






DC 




HSG02+/8000 


0C17 





0C6C 






DC 




MSG03 




0C18 





C807 






LDD 




LINK 




0C19 





DCOO 


0000 




STD 


L 







0C1B 





0806 






XIO 




RDSHS 


READ SMS 


0C1C 





COEE 






ID 




SUS 




0C1D 





100B 






SLA 




11 


LOOP PROGRAM 


OCIE 





4C28 


098A 


• 


BSC 


L 


START, 2+ 


»VES, BRANCH 


0C20 





3002 




NA1T 




2 


ENO PROGRAM 


0C21 





4C00 


0961 


£ 


BSC 


L 


CRSIZ 












***•••***••*•••***•*•*****•*•**•****•*** 










* 







PRINT ROUTINE 










* 

PRINT 


****•********•••*•*•****••****•«*** 


0C23 





0000 




DC 




*-» 




0C24 





08C0 






XIO 




RDSHS 


READ SMS 


0C25 





C0E5 






LD 




SMS 




0C26 





1000 






SLA 




13 


BYPASS PRINT ON 


0C27 





4C10 


0C30 


£ 


BSC 


L 


PRNIT,- 


•NO. BRANCH 


0C29 





7401 


0C23 


GTOUT 


MDX 


L 


PRINT.l 




0C2B 





C480 


0C23 




LD 


I 


PRINT 




0C2D 





4C10 


0C55 


* 
* 


BSC 


L 


OUT,- 




0C2F 





70F9 




MDX 




GTOUT 





DATE 
EC NO. 



15FEB68 
420403 



3B106820 
38 106830 
3B106840 
3B 106850 
3B106860 
3B106870 
3B1068B0 
3B106890 
3B106900 
3B106910 
3B106920 
3B 106930 
3B106940 
3B106950 
3B106960 
3B 106970 
3B1069S0 
3B 106990 
3B107000 
3B107010 
3B107020 
3B107030 
3B 107040 
3B 10705* 
361070*0 
3B 107070 
3B107060 
3B 107090 
3B 107 100 
38107110 
36107120 
36107130 
36107140 
3B107150 
3B107160 
36107170 
3B107180 
3B107190 
38 107200 
38107210 
38107220 
36107230 
36107240 
3B107250 
3B107260 
36107270 
38107280 
38107290 
3B107300 
36107310 
36107320 
38107330 
36107340 
3B107350 
36107360 
36107370 
36107380 
36107390 
36107400 
36107410 
36107420 
36107430 
36107440 
36107450 
36107460 
36107470 
36107480 
38107490 



PROG ID 
PAGE 



0C30 CCOO OOOC 
0C32 OCOO 0C02 
0C34 C8BF 
0C35 DCOO OOOC 
0C37 o 08C0 
0C38 3006 

0C39 C480 0C23 
0C3B D0C9 
0C3C C480 0C05 
0C3E F400 OAES 
0C40 4C18 0C4E 



PRNIT LOO L 
STD L 
LDO 

STD L 
XIO 
MAIT 

* 

GTADR LD I 
STO 



0C42 
0C44 
0C45 
0C46 
0C47 
0C48 



F400 0AE5 

D0B9 

1008 

D0B8 

08B2 

3006 



0C49 0882 
0C4A 3006 

0C4B 7401 0C05 
0C40 70EE 

0C4E C4B0 0C23 
0C50 4C10 0C55 

0C52 7401 0C23 
0C54 70E4 



LD 

EOR 

BSC 

EOR 
STO 
SLA 
STO 
XIO 
MAIT 

XIO 
MAIT 

MOX 
MDX 



MSGEN LD 
BSC 



OC55 
0C57 
0C59 
0C5B 
0C5D 
0C5E 
0C5F 



7401 0C23 
CCOO 0C02 
DCOO OOOC 
4C80 0C23 
0000 
0897 
4CC0 0C5D 



0C61 0000 
0C62 3008 
0C63 4CC0 0C61 



0361-0 
6 





0C65 





9A9E 




0C66 





3E62 




0C67 





9E21 




0C68 





FFFF 




0C69 





3676 




0C6A 





3221 




0C6B 





FFFF 




0C6C 





5E52 




0C60 





9221 




0C6E 





1E52 




0C6F 





6236 




OC70 





219E 




0C71 





369A 




0C72 





9E21 




0C73 





FFFF 




0C74 





1E52 




0C75 





6236 




0C76 





219A 




0C77 





22A2 




OC78 





3621 




0C79 





FFFF 


DATE 


15FEB68 


EC NO. 


420403 



OUT 



INT 



STOP 



HSG01 



MSG02 



* 
HSG03 



MSG04 



MDX L 
MDX 

MOX L 

LOD L 

STO L 

BSC I 
DC 
XIO 

BOSC I 

DC 

WAIT 
BOSC I 

DC 
DC 
DC 
DC 

OC 
DC 
DC 

DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 

DC 
DC 
OC 
DC 
OC 
DC 



12 

SAVE2 

VECTR 

12 

RETRN 

6 

PRINT 
MSGAD 
MSGAD 
HFFFF 
MSGEN, ♦- 

HFFFF 

CHAR1 

8 

CHAR2 

PRNT1 

6 

PRNT2 

6 

MSGAD, 1 
GTADR+3 

PRINT 
OUT,- 

PRINT.l 
GTADR 

PRINT, 1 
SAVE2 
12 
PRINT 

•-• 

SENSE 

INT 



8 
STOP 

/9A9E 
/3E62 
/9E21 
/FFFF 

/3676 
/3221 
/FFFF 

/5E52 
/9221 
/1E52 
/6236 
/219E 
/369A 
/9E21 
/FFFF 

/1E52 
/6 236 
/219A 
/22A2 
/3621 
/FFFF 



. 


3B107500 






38107510 






36107520 




SET INT VECTOR 


36107530 




CARRIER RETURN 


38107540 
3B 107550 
3B107560 




GET MSG ADDRS 


3B107570 
3B107580 




GET CHAR TO PRINT 


3B107590 
3B107600 




BR IF TERMINATOR 


3B107610 
3B107620 
3B107630 




STO FIRST CHAR 


3B107640 
3B107650 




STO SECOND CHAR 


3B107660 




PRINT FIRST CHAR 


3B 1076 70 
3B10768O 
3B107690 




PRINT SECOND CHAR 


3B107700 
3B107710 
3B107720 




INCRE MSG TABLE ADDRS 


3B107730 
3B107740 
3B107750 
36107760 




BR IF LAST MSG SECTION 


3B107770 
3B107780 
3B107790 
3B107800 
3B107810 
3B107820 
3B107830 
3B107840 
3B107850 
3B107860 




SENSE DSM AND RESET 


3B107870 
36107880 
3B107890 
3B107900 




PROG STOP MAIT 


36 1079 10 
36107920 
36107930 




ST 


36107940 




AR 


36107950 




T 


36107960 
36107970 
36107980 




EN 


3B 107990 







3B108000 
36108010 
38108020 


• 


LO 


36108030 




M 


3B108040 




CO 


3B108050 




RE 


3B108060 




T 


3B108070 




ES 


36108080 




T 


36108090 
38108100 
3B108110 




CO 


36108120 




RE 


36108130 




S 


3B108140 




IZ 


38108150 




E 


38108160 
38108170 






PROG 10 
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OC/A 





0936 


* 
MSG05 


OC 


/0936 


SR 


0C7B 





6262 






DC 


/6262 


RR 


0C7C 





2121 






DC 


/2121 




0C7D 





FFFF 






DC 


/FFFF 




0C7E 





629E 


MSi 


506 


DC 


/629E 


RT 


0C7F 





7621 






DC 


/7621 


N 


0C80 





0000 






DC 


*-* 


XX 


ocei 





?121 






DC 


/2121 




0C82 





FFFF 


* 




DC 


/FFFF 




ocaj 





iM12 


MSG07 


DC 


/2112 


F 


oca* 





3276 






DC 


/B276 


UN 


0C85 





1E21 






DC 


/1E21 


C 


0C86 





0000 






DC 


»-» 


YY 


0CB7 





fFFF 






DC 


/FFFF 




oca a 




0961 






END 


CRS1Z 




NU ' 


.T4TEMENTS 


FLAGGED 


IN 


THE AI 


10VE ASSEMB 


LY 



3B106180 
3B108190 
3B108200 
3B 1082 10 
3B108220 
3B1082J0 
3B108240 
3B108250 
3B108260 
38 1082 70 
3B108 230 
33108290 
38108300 
38108310 
3B108320 
38108330 
3B108340 
3B108350 



C R O 

NAME 

ADURS 



S S . 
VALUE 
0AE3 



ADRCK 


0AA7 


ADVNC 


09A2 


ALTNT 


0A7C 


ALTOO 


OBEB 


ALT01 


OBEE 


ALT02 


OBDB 


CHAR1 


OBFE 


CHAR2 


OBFF 


CHECK 


0B1F 


CHEX 


0AC1 


CNTRL 


0992 


COMPL 


0A7E 


COUNT 


0A7B 


CR 


0C04 


CRSIZ 


0961 


OOWN 


OAED 


END 


0C14 


ENDPT 


0AE7 


ERR 


0B69 


ERROR 


0B8E 


ERRSM 


0CQ9 


FFFF 


09D6 


FILL 


0A81 


FIND 


0B4E 


FLIP 


0A8F 


FLOAT 


OAFS 


FNDSZ 


0985 


FUNNO 


OCOA 


FUN 11 


09DC 


FUN 12 


09E5 


FUN21 


09FC 


FUN22 


0A05 


FUN 31 


0A29 


FUN32 


0A3A 


FUN42 


0A54 


FUN61 


0A66 


FUN62 


0A6D 


GTADR 


0C39 


GTOUT 


0C29 


HFFFF 


0AE5 


HOOAE 


0C07 


HOOOA 


09D4 


HOOOl 


0AE4 


H0002 


0A7D 


H0004 


0A7F 


H0006 


0C08 


HI 000 


09D3 


H5555 


0907 


H7000 


0C06 


H8000 


OAEA 


INCRE 


0AE8 


INT 


0C5D 


INVRT 


0B4C 


LINK 


OBFO 


LOKFN 


0B7«t 


LOUP A 


0BD2 


LPRTN 


09A8 


LRTN 


09D8 


l.t'lLA 


OAEB 



REFERENCE 
REFERENCES 

nIoo^?!! ,09F7, °* 12,0A16 ' 0AlB ' * 21 ' 0A8 '" CA86 '0«83,0A8C,0A90.0A91 
OA98,OA9A f 0A9E,OAA8,OAAB,OAB3,OAB5,OAB9,OAC2,OACi.OACBOnVn*np 
0AF7,0AFB,0AFD,0B0A,0B0E,0B13,0B16 0B1B 0B1C 0B21 2b" OB^IoBzl 

°»"'°?^ ,0B3C ' 0B41 ' OB ^'°B4F,OBBF,OBCF,0BDE Osi 0BE4 ' 

09FE,OA07,OABB,OABF ' 

09 A9 

0993,0A4B,0A55,0BD2 

0BD9 

OBDA 

OBED.OBEF 

0BFA.0C44 

0BFC.0C46 

0A66,0B2Ct0B30 

0A2F, )A42,0AD4,0A08 

09EC,0AOC,0A47.OA5F,OA75 

0997,0A0E,OA14,OA19,OA27,0A29,OA38,OA3A f OA3C,OA58,OA79,OA97,OAA2 

0AA9,0ABC,0ABE,OAD5,OAD7,0AF9,0BO4,0B59 

0A62,0A6E,OB3E,OB47,OB5C 

08F8 

09 7 1,0984, OBFO, 0C21.0C88 

09E5,OA05,OA4O,0AF3 

09 A6 

0A9B,0AB6,0ACF,0ADE,0AF1 
0828, 0B3A, 0872 

0A95,0AAF,OAC7, 0801, 0B6E, 0890, 0800, 0BE8 

0990,0B7E,088C,0BC4 

09D9,0A1B,0A56 

09DA,0A8A,OA8E 

OB14,OB61,OB67,0e6A 

09OE,O9E7,OAA0,0AA5 

0A4D,0A5A,OB09,080C,0B10 

096C.0979 

0999 >O9E3,OA03,0A34,OA52,OA6B,OB9E, 0887 

09E2 

09EB 

0A02 

OAOB 

0A33 

0A46 

0A5E 

0A6A 

0A74 

0C4D.0C54 

0C2F 

0A77,0AA3,f!AB2,0ABD,0AC A, 0AD6.0AEE, 0927, 0339, 084C, 0658,0865, 0870 

0BEB.0C3E.0C42 

0898 

0986, 09F9,0A23,0A49,OA80,OADB,OB0F, 0810, 0B2 C , 0344, 09 ),38B*,0B0C 
0A54 

OA6D.0B45 

0B99 

0961 

OA0D.OA26 

0BD4 

OAFS 

0A9F,0ABA,0AD3,0A0C,0AEF 

0BF4.0C5F 

0B37 

0966, 0973,0978, 0893, OC 18 

O9EO,09E9,0A0O,0A09,OA31, 0444, 0A4F,0.^C,a«o3,0A 72, l>!n,jj881, 0883 
0B89.0B8D 

one* 

09C1,09C4,09CA 

0945, 09C3 

09ED,OA8 3,0»DF,OAFO 04F6 , OBI ? , 0B2O.0B32 
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■X 

r« 



NSGAO 

MSGEN 

MSG01 

MSG02 

MSG03 

MSG04 

MSG05 

MSb06 

MSG07 

N0T8L 

NWA1T 

OUT 

PASS 

PRINT 

PRNIT 

PRNT1 

PR NT 2 

RDSUS 

RETRN 

RIO 

RTN1 

RTN2 

RTN3 

RTN4 

RTN5 

RTN6 

RTTBL 

SAVE1 

SAVE2 

SENSE 

SHAKE 

SIZE 

SLDBE 

SLRTN 

START 

STUP 

STURE 

STRTN 

SWS 

TEKP 

UP 

UPKLM 

VfcCTR 

HAS 

WORST 



0C05 
0C4E 
0C65 
0C69 
0C6C 
0C74 
0C7A 
0C7E 
0C83 
OCOC 
0BC2 
OC55 
0A80 
0C23 
0C30 
OBFA 
OBFC 
0BF2 
0BF8 
0905 
09 D9 
09ED 
OAOD 
0A49 
0A61 
OA77 
09CB 
OCOO 
0C02 
0BF6 
0B31 
09D2 
0AE2 

09C0 
098A 
0C61 
0B3C 
09BE 
OCOB 
0AE9 
OAOA 
OAEC 
0BF4 
0AE6 
0811 



0C3B.0C3C0C4B 

0C40 

098C09BC 

0C16 

0980, 0C17 

0982 

0981, OBAA 

09B3,09B0,0BAB 

0BA6,0BAC 

09AE,0BA2,0C0C 

OBAF.OBEA 

0C2D.0C50 

0995,OB75,OB77,OB70 

097F,098A,09BA.0BA8,0C14,0C29,0C2B,0C39,0C4E,0C52,0C55,0C5B 

0C27 

0C47 

0C49 

0998, 0885,0896, 0BC2.0C1B.OC24 

0C37 

098F,09A2,09A4,09A8,09AD,09C9,OBBC 

09CC 

09CD,09FB 

09CE.OA25 

09CF.0A51 

0900, 0A7A 

0901 

09AB,09CB 

0891, 0BC8 

0C32.0C57 

0C5E 

0A70, 0840, 0843, 0848 

0962, 0968, 096E, 0970, 0975, 0985,0988 

0A2B,0A36,0A3E,0A82,0A85,OA94,0AAl,0AA4,0AAA,0AAE,0ABl,0AC6,OAC9 

0AC0,OAFA,0B0O,0BO3,OB5B,0B60,0B63,0B6C,0BBl,0BCC,0BD6,0BE0,OBE6 

09AO 

0C1E 

08F5.OC63 

0840 

09AC09B8 

099D, 0985, 09C6, 0886, 0B97,0BA0,0BC3,0BF2,0C1C,0C25 

0851,0853 

090C,09FC,OA10,OA2D,OAEO 

09F3,0A10,0A89, OAOD, 0AF2.0B0B, 0819, 0B2B.0B42 

0C34 

OA93,OAAD,0AC5,0AFF,0B24,OB36,0BB4 

0A64,0B1A,0B1E 



ENO OF ASSEMBLY 



LAST PAGE 



OATE 
EC NO. 



15FEB68 
420403 



PROG ID 
PAGE 



03B1-0 
8 



IHM MAINTFMANCF DIAGNOSTIC PROGRAM FOR THP 1 1 30 SYSTEM 
1677 PLOTTFR FUNCTION TEST 



PART \|P. 219123R 
PAGF l 



IBM MATWTFNANCE 1 SfiHTiT t C PROGRAM FOR THF 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



PART NO. 2191'3R 
PAGE 1A 



TAB1 F OF CONTENTS 

PARAGRAPH PAGE 

I. PURPOSE 1 

PREREQUISITE 1 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

OPERATING PROCEDURE 1A 



2. 



3-1 

3.2 

3.2.1 

3.2.2 

3.2.3 

3.3 

3.3.1 

3.3.2 

3.4 

3.5 



PROGRAM LOADING 

PROGRAM OPERATION 

PROGRAM CONTROL - FUNCTION 

ROUTINE SELECTION - FUNCTION 1 

SPFCIAL SELECTION - FUNCTION 2 

PROGRAM HALTS 

NORMAL HALTS 

ERROR HALTS 

PROGRAM TERMINATION 

RESTART 



PRINTOUT. 



4.1 

4.2 



STATUS MESSAGES 
FUROR MESSAGFS 



COMMENTS. 



OPERATING PROCEDURE 

THFSF 0°FRATING POOCFDURFS APPLY TO SINGLE PROGRAM OPFPATION ONLY. 
FOR OVERLAP OPERATION, RFFER TO SFCTIOM 3.2.3 OF THE 1130 
DIAGNOSTIC MONITOR IT DOCUMENTATION. 

3.1*** PROGPAM 10ADIMG 

STANOARO MONITOR LOADING PROCEDURES APPLY 

TH^SF PROCFOUR^S ftRF <;ii'<MAR 1 7 ED FFRF . SF"= DM USE PROCEOURF FDR 
DETAILS. 

1. SET PIRST TYPFWRTTFp TAB 20 CHARACTERS FROM LEFT MARGIN. 

2. SFT HIT SWITCH 15 OFF - LOAD AND GO 

ON - TO HALT AFTFR LOADING 

IF HALT AFTFR LOADING, S C LECT PROGRAM 
OPTIONS THEN TURN OFF HALT SWITCH OR 
FOLLOW NORMAL RESTART PROCEDURE 
(SECTION 3.5). 

3. I OAO DIAGNOSTIC MONITOR AND THIS PROGRAM. 

4. S c l <=CT PROGRAM DOT10NS, IF DFSIRFD. 

****** 

3.?*** PROGRAM OPFfATT^N. 

3.2.1 PROGRAM CONTROL - FUNCTION 



5.1 
5.2 
5.3 
5.4 

5.5 



ROUTINE 1 

ROUTINE 2 

ROUTINE 3 

ROUTINE 4 

ROUTIN c 5 



PEN UP-PEN DOWN OCTAGON TFST 
REGISTRATION YES 
SWING TFST 
STRESS TEST 
SFI ef.T COMMAND 



SFT SWITCHES 0-7 TO 01. 

SET SWITGHFS 1-15 AS DESIRED. 



sw 



FUNCTION 



APPENDIX. 



FIG. 1 PATTERN FOP. P^N UP-PFN DOWN TFST 

FIG. 2 PATTERN FOR REGISTRATION TEST 

FIG. 3 PATTERN FOR SWING TEST 

FIG. 4 PATTERN FOR STRESS TEST 



1. PURPOSE 



R RFSTART 

9 pnuTTNF STAPT MFSSAGF 

10 LOCK ON FUNCTION 

11 LOOP PROGRAM 

12 loop ON ERROR 

13 BYPASS ERROR PDINTOtJT 

14 HAl T ON FRROR 

15 HALT 



PRFSS INT RFO KTY ON CONSOL C . 

** 



THE PURPOSE OF THF 1627 PLOTTFR OIAONOSTTC TFST IS TO FXFCUTF THF rilFFCRFNT 
MOVEMENTS OF THE PLOTTER AND TO CHFCK THF CARLES FOR CORRECT ADJUSTMENT. 

PREREQUISITES 

2.1*** PROGRAM PREREQUISITES 

1130 DIAGNOSTIC MONITOR II. 

2.2*** EQUIPMENT PREREQUISITES 

1. 1131 CENTRAL PROCESSING UNIT (CPU) WITH PROGRAM LOAD F"OM 
CARD READER OR PAPER TAPE. 

2. 1627 PLOTTER MOO^L I OR 2. 

3. 1000 AVAILABLE CORE POSITIONS OF CORF STORAGE 



DATE 


02JAN66 


15N0V66 


01APR69 


01MAY69 


1 5NOV69 


FC NO. 


415490 


419643 


571036 


5710 36Q 


571063 



PROG ID 
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DATF 
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1 
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3.2.? ROUTINE SELFCTION 



FUNCTION 1 



THE SELFCTFD ROUTINE MILL LOOP UNTIL A NEW ROUTINE IS SFLEC.TED 
OR ROUTINE SELECTION IS RESET. 

1. TO SET ROUTINE SELECTION 

A. SET SWITCHES 0-7 TO 41. 

B. SFT ROUTINE NUMBER IN SWITCHES 12-15. 



RTN 



OFSCRIPTION 



1 


PEN UP-PEN OOWN OCTAGON 


TEST. 


NORMAL ROUTINES- 


7 


REGISTRATION TEST 




THE PROGRAM STARTS WITH 


3 


SWING TEST 




ROUTINF 1, RUNS FACH 


4. 


STRFSS TEST 




ROUTINE IN SFQUFNCF 
THFN TERMINATES AFTER 
ROUTINF 4. 


5. * 


SELECTION COMMAND 




OPTIONAL ROUTINES 
THESE ROUTINES RUN 
ONLY IF SELFCTFD. 



7. 



* - REFER TO SECTION 3.2.2.3 FOR SPECIAL INSTRUCTION 

C. PRESS INT REQ KEY ON CONSOLE. 

TO RESET ROUTINE SELECTION, SET AS IF SELECTING ROUTINF 7ER0. 

** 

3. PROGRAM OPTIONS 

ROUTINF 5 - SELECTION COMMAND 

AFTFR SFLFCTION BY FUNCTION 1, THE CONTROL COMMAND DATA IS TAKFN 
FIRST FROM BITS 0-5 AND THEN FROM B-13. 



ACTION OR MOTION 



BITS 



3.2.3 



LOWFR PEN TO PAPER 

UP (PAPER MOVFS OOWN » 

DOWN (PAPER MOVFS UP) 

RIGHT 

LEFT 

RAISE PEN FROM PA°FR 

****** 

SPECIAL SELECTION - FUNCTION 2 






OR 


B 


1 

2 




9 
10 


3 




11 


4 

■5 




12 
13 



SET SWITCHES 0-7 TO «l . 

SFT SWITCHES R-15 AS DESIRED. 



sw 

15 



FUNCTION 



LOCK OUT MONITOR. THIS WILL BYPASS MONITOR TO ALLOW THE 
PLOTTER TO RECEIVE COMMANDS C ASTFR AND TEST FOR SL"W OR 
RINDING TRANSPORT. ALL OVERLAP FUNCTIONS ARF BYPASSED 
WHILE MONITOR LOCK-OUT OPTinN IS SELFCTFD. 



PRESS INT RFO KEY ON CONSOLE SWITCH SETTINGS MAY NOT RE LOGGED 
BECAUSE OF THE LOCK OUT TIMING. 



3.3*** PROGRAM HALTS 
3.3.1 Nn"MAL HAl TS 



HALT NO. 
(B RFG) 


DESCRIPTION 


RESTART 
ACTION 


3001 . 

3 002 , 


PRDGRAM STOP OR ADDRESS STOP 
HALT ON ERROR 


PRESS START 

PDISPLAY MODE-PRESS STAR 
RUN MODE-PRESS START 



3.3.2 ERROR HALTS 



HALT NO. 


OFSCRIPTION 


RFSTAOT 


(B 9F0) 




ACTION 


30F1 


CHFCK SUM ERROR ON FIRST 
CARD OF LOADER 


RELOAD 


30F? 


RFADFP OSW FRROR WHFN 
1OA0ING LOADER 


RFLOAD 


30FT 


CAPO ? OF LOADER DID NOT 
LOAD 


R c LOAT 


3 0^4 


CAM N^T CLEAR CORE - DUF TO 
ppc-OQ in ADDRESSING IIPPFR 

r ORf. 




30F5 


RFAOFR CHF r K WHEN LOADING 


NPRO thfn PLACE CAPOS 




MONITOR OR TEST PROGRAM 


"IN OUT IN FRONT OF 
REMAINING DECK AND PRESS 
START. 


30** 


MONITOP DID N"T L0»0 


RFLOA'l 


3 OF 7 . 


CHECK SUM WHFN LOADING 
MONITOR 


RFLOAD 


*OFB 


RFAOEP NOT READY 


MAKF REAOFP RFAOY 


30 = 9 


INVALID INTFPPUPT WHICH WUL 

NOT RESET 


PRESS OFSET AND START 


30FA 


CONSOIF PRINTER HANG UP - 
BUSY WILL NOT GO OFF 


FIX THE CONSOLE PRINTER 



****** 



3.4*** PPHGRAM TERMINATION 



IF LOOP PRDO.PAM HAS NOT "EFN SPECIFIED THE PROGRAM WILL TFRMINATE 
AT THE END pE oniJTINF 4. ROUTINE 5 WILL ONLY RUN IF SFLFCTFD. 

IF ANY ROUTINF IS SELErTED T HAT ROUTINE WILL LOOP AND WILL NOT 
TERMINATE. 

****** 



3.5*** RFSTART 



1. SET SWITCHES 0-7 TO 01. 

2. TURN ON SWITCH B. 

3. SFT DESIRED CONTROL FN SWITCHES "-14. 

4. PRESS INTFRRUPT REOUFST KEY. 
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PRINTOUTS 



ALL PRINTOUTS ARE IN THE STANDARD FORMAT. 

1MESSAGFI 
(MESSAGE) 



APPNN DORR AAAA 

OR 

EPPNN DORR AAAA 



WHFRF 



A IDENTIFIES STATUS MESSAGES 
F IDENTIFIES FRROR MESSAGES 
PP IS THF PIO DF THF PROGRAM CAUSING THE MFSSAGE 

THIS WILL RE FITHFR 00 FOR MESSAGES 
ORIGINATED BY THF MONITOR OR 
OB FOR MESSAGES ORIGINATED RV 
THIS PROGRAM. 



NN 

RR 

AAAA 

MFSSAGE 

4.1*** STATUS MESSAGFS 



IS THE MESSAGE SEOUFNCF NUMBER 

IS THE ROUTINE NUMRER 

IS THE ADDRESS OF THF ROUTINE 

IS ANY VARIABLE INFORMATION 



A 0000 



NUM PIO ADRS RELF 
XXXX XXXX XXXX XXXX 



LO 



THIS MFSSAGE IS PRINTED FOLLOWING THE LOADING OF ANY PROGRAM 
(EXCEPT MONITOR), THE MFSSAGF GIVES THF LOAD SFOUENCE NUMRFR, 
THE PROGRAM ID, THF AODRFSS INTO WHICH THF PROGRAM WAS LOADED, 
AND THE RELOCATION FACTOR. 



4.2*** FRROR MFSSAGFS 

THF DSW IS CHFCKFD FOR ABSOLUTE CORRECTNESS AT ALL TIMES. IF AN 
FRROR IS DFTECT^O ONF OF THF MFSSAGFS BFLOW WILL INDICATF THF 
PROBLEM. IT IS LEFT TO THF OPERATOR TO ANALY7E THF DSW FOR THE 
SPECIFIC PROBLEM ARFA. 

***************************************************** 
* THE PLOTTER OSW * 



***************************************************** 



Eooni 



AOOOl 



SWS PID 
XXXX XXXX 

THIS MESSAGE IS PRINTED EACH T1MF A VALID SWITCH FNTRY IS R C AD 
BY THE MONITOR. THE MFSSAGE CONTAINS THE SWITCH SETTING READ 
TOGETHER WITH THE PROGRAM ID OF THF PROGRAM INTO WHICH THE 
CONTENTS OF SWITCHES B-15 WERE STORED. IF THE SWITCH ENTRY 
CALLED FOR HALT OF ANY PROGRAM, THF WORD HALT WILL FOLLOW THF 
MESSAGE. 



A0500 OORR AAAA 



F0003 



F0004 



ROUTINF START MESSAGE - IF SWITCH 9, FUNCTION 0, IS TURNFD ON, 
THIS MESSAGE WILL BE PRINTFD BFFORF THE START OF EACH ROUTINE. 
R IS THF NUMRFR OF THE NFXT ROUTINF AND AAAA IS THE STARTING 
ADDRESS. 



A0505 OORR NRDY 

PLOTTER POWER IS TURNED OFF. 



A0508 OORR 



PROG HALT 

INDICATES PROGRAM HAS BEEN HALTED BY BIT SWITCH 15 Fij NCTIn N 00 
RFING SET ON. SET BIT IS OFF TO C0NT1NI/F. 



* 


BIT 






* 





PLOTTER RESPONS 


* 


I 


NOT 


USED 


* 


7 


NOT 


USED 


* 


1 


NOT 


USED 


* 


4 


NOT 


USED 


* 


5 


NOT 


USFD 


* 


6 


NOT 


USFD 


* 


7 


NOT 


USFD 


* 


B 


NOT 


USFD 


* 


9 


NOT 


USED 


* 


in 


NOT 


USFD 


* 


M 


NOT 


USFD 


* 


12 


MOT 


USFD 


* 


1 3 


NOT 


USED 


* 


14 


"USY 


* 


IS 


NOT 


READY 


* 









SWS INVLD 
XXXX 

THE SETTING OF SWITCHES 4-7 DID N"T EQUAL THE LOAD SEOUENCE 
NUMBER OF ANY PROGRAM IN CORE. 



OVR COPF 

THF PROGRAM WHICH THE LOADFR WAS ATTFMPTING TO LOAD 
FXCEFOFD AVAILABLE CORF. LOADING WAS TERMINATED. 



CKSUM 

A CHECK SUM FRROR WAS DETFCTEO WHILE LOADING A TFST PROGRAM. 
THIS ERROR OCCURS UNDER ANY OF THE FOLLOWING CONDITIONS. 



1. 



A CARD IS "ISSING OR IS OUT OF SEOUENCE. 



7. THERF IS AN EXTRA CARD IN THF DECK. 

3. THF PHNCHFD INFORMATION ON THE c A» D IS NOT CORRECT. 

4. DATA WAS l^ST OR PICK.EO UP DUE TO A MACHINE MALFUNCTION, 

5. DUF TO A CPU MALFUNCTION, THF CHF r K SUM WAS NOT 
CORRFCTIY CALCULATED. 

WHFN THIS errrr OCCURS ATTEMPT TO RELOAD THE PROGRAM. 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
41964? 



01 APR69 
571036 



01MAY69 
571036B 



15NDV69 
571063 



PROG ID 


0305-* 


DATE 


02JAN66 


15N0V66 


01APR69 


01MAY6" 


15N0V69 


PAGE 


3 


C C NO. 


41 5490 


419643 


571036 


S71036B 


571063 



PROG ID 
PAGF 



030S-* 
3A 
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E0005 OOON XXXX 

THIS ERROR WILL OCCUR IS AN INTERRUPT OCCURSt BUT THE ILSW 
MAS NOT CORRFCT. N IS THE INTERRUPT LEVEL AND XXXX IS THE 
ILSW. THIS PRINTOUT HILL ONLY OCCUR IF THE INTERRUPT IS RESET 
BY A BOSC. NO ATTFMPT IS MADE BY THE ERROR ROUTINE TO RESET 
THE REQUEST BIT. 



E0501 OOOR AAAA 



WAS S/B DSW 

XXXX 0000 



STATIC OSW ERROR. THIS OSW WAS SENSED BEFORE GIVING A CONTROL COMMAND 
TO THE 1627. ANY BITS ON INDICATE AN ERROR. IF BIT 15 IS ON (NOT 
REAOYI, CHECK FOR 1627 POWER ON. 



E0502 OOOR AAAA 



WAS S/B BUSY OSW 
XXXX 0002 



BUSY DSW ERROR. THIS OSW WAS SFNSED IMMEDIATELY AFTFR A CONTROL 
COMMAND WAS GIVEN TO THE 1627. IT SHOULD SHOW THE 1627 BUSY. NO 
OTHER BITS SHOULD BE ON. 

IF THIS ERROR OCCURS DURING OVFRLAP, SEE NOTE ON I/O TEST INDFX 
PAGE, P/N 2191291. 



E0503 OOOR AAAA 



OSW NO INTRPT 
XXXX 



NO INTFPRUPT WAS RECEIVED AFTER A CONTROL COMMAND TO THE 1627. 
DSW WAS SENSED AT LEAST 2 SECONDS AFTER THE 1627 COMMAND. 



THF 



IF A BUSY DSW ERROR (F0502) IS ALSO INDICATED, THF CONTROL COMMAND 
WAS NOT RFCEIVFD BY THE 1627. 



E0504 OOOR AAAA 



WAS S/B INTRPT DSW 



INTERRUPT OSW ERROR. THIS OSW WAS SENSED IN INTERRUPT. IT SHOUl O 
SHOW THE RESPONSE BIT ON AND ALL OTHER BITS OFF. 



•>. COMMENTS 

5.1*** ROUTINE 1 ( PEN DP-PEN DOWN OCTAGON TEST ) 

THE PURPOSE OF THIS ROUTINE IS TO TEST THE CAPABILITY OF THF PLOTTER 
TO EXECUTE THF PEN UP AND PEN COWN PLOTTER COMMANDS. IN THIS ROUTINE, 
AS IN THF OTHER PLOTTER PATTERN GENERATING ROUTINFS, AN ADDRESS TABLE 
IS USED TO SELECT THE CORRFCT PLOTTFR COMMANDS. THE AOORESS TABLE, IN 
TURN, POINTS TO A PAIR OF COMPUTER WORDS. ONF WORD CONTAINS A NUMBER 
WHICH INDICATES THF NUMBER OF TIMES THE OTHER WORD ( THE PLOTTER 
COMMAND ) IS TO BE EXECUTED. 

THE PATTFRN PLOTTED IN THIS FUNCTION TEST CONTAINS TWO ADJACENT 
OCTAGONS, WHOSE SIDES ARE ONE AND ONF HALF INCHES IN LENGTH. OCTAGON 
NO. 1 ( LEFTMOST OCTAGON ) IS PLOTTED IN A CLOCKWISE DIRECTION. 
OCTAGON NO. 7 { RIGHTMOST OCTAGON ) IS PLOTTED IN A COUNTER CLOCKWISE 
DIRECTION. 

THIS ROUTINF IS DESIGNED SO THAT, IF A PEN UP COMMAND IS NOT EXECUTED 
AS IT SHOULD BE, A LINE WILL BE DRAWN IN THE INNER PORTION OF THE 
OCTAGON. IF A PEN DOWN COMMAND IS NOT EXECUTED, A SIDE OF THE OCT- 
AGON WILL BE MISSING. FIGURE 1 SHOWS AN EXAMPLE OF THF OUTPUT OF 
THIS ROUTINE. 

5.2*** ROUTINE 2 REGISTRATION TEST 

THF FUNCTION OF THIS ROUTINE IS TO DETERMINE IF ANY ADJUSTMENTS ARF 
NEEOFO IN THE PEN OR DRUM MOVEMENT MECHANISMS. FIGURE 2 SHOWS THE 
PATTERN GENERATED BY THIS ROUTINE. IF ANY OF THF I INFS FAIL TO 
INTERSECT, MECHANICAL ADJUSTMENT OF THE PLOTTFR IS NECESSARY. 

5.3*** ROUTINF 3 SWING TEST 

THE PURPOSE OF THIS ROUTINE IS TO TEST THE ABILITY OF THE PLOTTFR TO 
PLOT LONG LTNF SEGMFNTS IN VARIOUS DIRECTIONS. THE PATTFRN GENERATED 
BY THIS ROUTINE IS SO DESIGNED, THAT IF PLOTTER COMMANDS ARE NOT FX- 
FCUTFD OR EXTRA COMMANDS ARE EXECUTED, THE CORNERS OF THE PATTFRN 
WILL NOT JOIN. THIS TEST WILL ALSO SHOW UP ANY MALADJUSTMENT IN THE 
PEN OR DRUM MFCHANISM. 

THE MFTHOD USFD IN GENERATING THE PATTERN IS AS FOLLOWS, 

A. THE LEFT AND TOP SIDES OF A SERIES OF SOUARFS APE DRAWN AS A 
CONTINUOUS LINE, VARYING IN SUE FROM 10 TO 2 INCHES. 

B. THE RIGHT AND BOTTOM SIOFS OF THE SERIES OF SQUARES ARE 
DRAWN IN ONF QUARTER INCH LINE SEGMENTS, JOINED TOGETHER, AND 
TOTALING THE LENGTH OF THE LEFT AND TOP SIDES. 

C. ON COMPLETING THE PLOTTING OF THE SQUARES, LINES ARE DRAWN 
( BOTH SEGMENTED AND CONTINUOUS ) THRU THE CORNERS OF THE 
SQUARES. ALL OF THESE DIAGONAL LINES SHOULD INTERSECT THE 
CORNERS OF THE SQUARES PERFECTLY. 

FIGURE 3 SHOWS THF PLOTTER PATTERN GENERATED BY THIS ROUTINE. 



DATE 
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15N0V66 


01APR69 


01MAY69 


15N0V69 


EC NO. 


415490 


419643 


571036 


5710368 


571063 
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15N0V66 
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01MAY69 


15N0V69 
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* 


EC NO. 


415490 


419643 


571036 


5710368 


571063 
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0305-* 
4A 



IBM MAINTENANCE DIAGNOSTIC P»ir,P«« FOP THE 11^0 SYSTEM 
1627 PLOTTFR FUNCTION TEST 



PART NT. 219123B 
PARE 5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



PART NO. 2191238 
PAGE 5 A 



5.4*** ROUTINE 4 STRESS TFST 



(WINOMILl PATTERNl 



THF PURPOSE OF THIS R0UT1NF IS TO EXFUCISE ALL OF THE MFCHANICAL 
FUNCTIONS OF THF PLOTTER. THIS OBJECTIVE IS ACCOMPLISHED BY PLOT- 
TING A PATTERN OF TRIANGLES, ROUGHLY RFSFM«ELTNG A WINOMILL. EACH 
SIDE OF THF TBIANGLF CONSISTS OP A SFRIFS OF SHORT SAWTOOTH-LTKF SEG- 
MENTS, WHICH TESTS THF ABILITY OF THF PLOTTER TO PLOT SHORT LINE 
SFGMENTS WITH ABRUPT CHANGES IN DIRECTION. A SET OF FIVE TRIANGLES 
IS PLOTTED, THF AXIS IS THFN ROTATFO 90 OFGRFFS ANO FIVE MORE TRI- 
ANGLES ARF PLOTTED IN THE SAME MANNFR UNTIL, FINALLY, FOUR SETS OF 
TRIANGLES HAVE BFEN PLOTTFO. WHEN THE TRIANGLES HAVE BEEN PLOTTFO, A 
LINE IS DRAWN THRU THF INNERMOST POINTS OF THE TRIANGLES. THE RE- 
SULTANT PATTERN THEN APPEARS AS A WINfXMIL WITH A OIAMOND SHAPED 
PATTERN CONNFCTING THE INNER POINTS OF THE TRIANGLES. THF DIAMOND 
DESIGN SHOULD INTERSECT ALL OF THE INNER POINTS OF THE TRIANGLES IF 
THE PLOTTER IS ADJUSTED CORRECTLY. FIGURE 4 SHOWS THE PLOTTER PAT- 
TERN GENERATED BY THE ROUTINE. 

5.5*** ROUTINE 5 SELECT COMMAND 

ROUTINE 5 WILL NOT RUN UNLESS SELECTED. THIS ROUTINE ALLOWS THE 
FIELD ENGINEER TO EXECUTE ANY DESIRED COMBINATION OF TWO PLOTTER 
COMMANDS. ONE COMMAND IS SET IN SWITCHES 0-6, THE OTHER IS SWITCHES 
8-13. THE SWITCHES ARE READ DIRECTLY BY THIS ROUTINE. THUS ANY 
CHANGE IN SWITCH SETTING WILL RESULT IN AN IMMEDIATE CHANGE IN 
THE COMMAND. THE PROGRAM WILL RUN IN THIS ROUTINE UNTIL ANOTHER 
ROUTINE IS SELECTED. 

6. APPENDIX 

THE FOLLOWING PAGES CONTAIN THF PLOTTER OUTPUT PATTERNS. 

FIG. 1 PATTERN FOR PEN UP/PEN DOWN TEST 

FIG. 2 PATTERN FOR REGISTRATION TEST 

FIG. 3 SWING TEST PATTERN 

FIG. * STRESS TEST WINDMILL PATTERN 



FIGURE t 



PATTERN FOR PEN UP/PEN DOWN TEST 




SCALE: 3/*» •- 1 



FIGURE 2 



PATTERN FOR REGISTRATION TEST 




SCALE: 37* - 1 



DATE 


02JAN66 


15N0V66 


01APRS9 


01MAY69 


15N0V69 


EC NO. 


415490 


419643 


571036 


571036B 


571063 



PROG ID 
PAGE 



0305- * 
5 



•ATE I7JAN66 

EC NO. *»5»»90 



15NOV66 1APR69 1MAY69 15NOV69 

M9643 S71036 S71036B 571063 



PROG 10 0305-0 
PAGE JA 
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FIGURE 3 



SWING TEST - PATTERN 




SCALE: W* - 1 



DATE 17JAN66 

EC NO. 415*90 



15UOV66 1APRG9 1MAY09 15NOV69 

MOG^S 57103C 571036B 571063 



PROG ID 0305-0 
PAGE « 
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FIGURE «t 



STRESS TEST - WINDMILL PATTERN 




SCALE: 3A - 1 



DATE I7JAN66 15NOV66 1APR69 1MAY69 15NOV69 

EC NO. 415*90 <U9643 571036 571036B 571063 



PROG ID 0305-0 
PAGE 6A 
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• 

* THIS ENGINEERING CHANGE REELECTS MAJOR 

* CHANGES TO THE DIAGNOSTIC MONITOR. PREVIOUS 

* TESTS WILL NOT RUN KITH DIAGNOSTIC MONITOR II. 

• 

« THIS TEST HILL NOT RUN WITH PREVIOUS MONITORS. 

* TESTS PRIOR TO EC *196*3 DATED NOV 15, 1966 
« WILL NOT OPERATE PROPERLY WITH DIAGNOSTIC 

* MONITOR II. 

* 

*•******♦*•*********•**•***»**•«***»»**•«****»**♦»»•*««««♦«««♦»»»»»»,»« 

* H30 - 1627 PLOTTER FUNCTION TEST 



© 
© 
© 

e 

e 
a 
© 

© 



0160 O 

0161 

0162 

0163 

0164 



0165 

0166 

0167 



017A 

01 8A 
01 9A 
01AA 
01SA 
0188 
01BC 
01P0 



05DC 



* EQUATE TABLE 

* THIS TJBLE EQUATES TEST PROGRAM LABELS 

* TO THEIR EQUIVALENT DIAGNOSTIC MONITOR 

* AOORESSES. 



* — — 
• 


MONITOR 


ENTRY AODRtSSES 


BEGIN 
START 
ERROR 
LOG 

END 

* 


EQU 
EQU 
EQU 
EQU 
EQU 


/160 BEGIN ROUTINE 
BEGINU SUPERVISOR ROUTINE 
STARTCl ERROR LOG ROUTINE 
ERR0R61 STATUS LOG ROUTINE 
LOGtl END ROUTINE 


• 


MONITOR 


CONTROL WORD ADDRESSES 


RTNSW 
ERLCK 
LOGBV 

* 


EQU 
EQU 
EQU 


EHOSI ROUTINE START SW 
EN0S2 LOCK ON ERROR CDNTR 
END£3 I/O BUSY SW AODRS 



INTERRUPT TRANSFER VECTOR ADDRESSES 



ILO 


EQU 


/17A 


IL1 


FQU 


IIOC'6 


IL2 


EQU 


IL1U6 


IL1 


FQU 


IL2C16 


IL* 


EQU 


IL3U6 


RQTY 


FOU 


ll*U 


RQKB 


EQU 


RQTVtl 


SVKB 


EQU 


ROKREl 



INTERRUPT LEVEL ZERO 
INTERRUPT LEVEL ONE 
INTERRUPT LEVEL TWO 
INTERRUPT LEVEL THREE 
1NTERRJPT LEVEL FOUR 
CONSOLE PRINTER REQUEST 
USE KEY80AR0 REQUEST 
KB SERVICE REQUEST 



ORG »£/050C 





050C 0305 




F«D DC 




0500 0000 




RID DC 




051F OOOO 




RAD DC 




050F OO'JO 




SWO DC 




05E0 0000 




SW1 DC 


DATE 


02JAN66 15N0V66 


15N0V69 


EC NO. 


A 15*90 * 


196*3 


571063 



THE MONITOR USFS CORE LOCATIONS O-05OC. 
FOR CONTENTS OF THESE AC3SCSSES REFCR 
TO THE DIAGNOSTIC MONITOR LISTING. 



******************** **************,» t ******* 
* PROGRAM CONTROL TABLE 

*********************************** tt ******* 



/0305 PROGRAM ID 

*-• ROUTINE ID 

*-• ROUTINE ADDRS 

*-• PROGRAM CONTROL 

*-* ROUTINE SELECTION 



PART NO. 2191236 
PAGE 1 



30500020 

30500030 

3O50006O 

30500050 

30 50 5060 

305000 70 

30 5000 80 

30500090 

30500100 

30500110 

30500120 

30500130 

305001*0 

3050 0150 

30500160 

30500170 

33500180 

30500190 

30500 200 

30500210 

30500720 

30500230 

305002*0 

30500250 

30500260 

305002 70 

SO53028O 

30S00290 

30500330 

33500310 

30500320 

30500330 

305003*0 

30500350 

30500360 

30500170 

30500380 

30500390 

30500*00 

30503*10 

30500*20 

30500*30 

30500**0 

30500*50 

30500*60 

30 500*70 

30500*80 

50500*90 

305005 OO 

30500510 

30500520 

30500530 

305035*0 

30500550 

30500560 

30500570 

30500 580 

30503590 

30500600 

30500610 

33500620 

3G5O0630 

335036*0 

30513650 

30500ft60 

3C500670 

305006SO 

30500690 



PROG ID 
PAGE 



o 




• 


o 


• 


• 


• 


• 


• 


• 


• 


• 


o 


• 


• 


i • 
1 


• 


1 • 


• 


: • 


• 


1 © 


• 


1 • 


• 


: • 


• 


\ • 


• 


© 


© 


, • 


© 


© 


• 


© 


© 


• 


© 


• 


o 


• 


o 


• 


e 


o 


o 


• 


© 


• 
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05E1 0000 


SW2 


DC 


*-* 


05E2 0000 


SW3 


OC 


•-« 


05E1 1 05EB 




OC 


STRT 


05E* 1 05EB 




DC 


STRT 


05ES 0000 


MLSCF 


DC 


*-* 


03F6 0000 




DC 


*-* 


05E7 FFFF 




DC 


/FFFF 



LOCK-OUT MONITOR BIT 15 



RESTART ADDRESS 

SET BY WAIT RTN AND MON 

SET BY CNTRl AND INRTPT 

TERMINATOR 



******************************************** 
* TEST INITIALIZATION 

***•***•*»**•***»«**«*»*»*»•»♦««♦«*»»««,««»» 



OSES **80 0160 
05EA 1 050C 



9GIN BSI I BEGIN 
DC PID 



PCT ADDRESS 



• ST/RT OF TEST AND SINGLE PASS INITIALIZATION 



05EB 


6100 


SfRT 


LDX 


1 





05EC 


69F0 




STX 


1 


RIO 


C5CD 


1 6530 033A 




LDX 


11 


RFCEV 


05EF 


6D00 01AA 




STX 


1 1 


IL3 


05F1 


6000 




BSI 




CNTRL 



SET TO START WITH 
FIRST ROUTINE 



SE5UENCE CONTROL PPUTIN5 

THIS ROUTINE CHECKS SWl AND CONTROLS 
THE SEQUENCE IN WHICH TEST ROUTINES 
ARE RUN. 



05F7 





0000 




• 
CNTRL 


DC 




*-• 


05F3 





COEC 






LO 




SWl 


05F* 


1 


*C08 


05F0 


* 
CN10 


9SC 


L 


CN20.E 


05F6 





D0E6 




STO 




RIO 


05F7 





9017 






S 




RIDCK 


05F8 


1 


*C03 


0603 




BSC 


1 


CN30.S 


05FA 





1810 






S»A 




16 


05FB 





DOS* 






STO 




SWl 


05FC 





OOEP 




* 
CN20 


STO 




RID 


05FP 


1 


7*01 


0500 


MDX 


1 


RID.l 


C*FF 





coo 






in 




RID 


0500 





900F 






s 




RTNCN 


C601 





**B0 


016* 


* 
CN30 


BSI 


I 


ENO.-Z 


0603 


1 


6580 


050D 


LOX 


II 


RID 


0605 


1 


C500 


0610 




LD 


1 1 


MT ; !L-1 


0607 





CODS 






STO 




KAJ 


0503 





OOJD 






STO 




MLSCFtl 


0609 





0*00 


0165 




STO 


I 


RTNSW 


0508 


1 


**00 


07FE 




RSI 


1 


CKLK 


06 OD 


1 


*CBO 


0565 


• 
RIOCK 


dSC 


I 


MLSCFS1 


053F 





000 5 




DC 




LPTN-RT 


0610 





000* 




PTNOM 


DC 




NRTN-RT 



BR 



IF NO RTN SELECTO 



SAVE NEW RTN NUMBER 

BR IF -ALIO RTN 

IF INVALID RTN GO 
TO R "N ONE 

AOV TO NEXT RTN 
CHECK FOR END CF 

Nfi'iMAL SE^JENCE •! 

END CF PROGRAM 

XRKNEW ROUTINF MJM3ER 

FETCH RET'JVI A-yos 

STORE NFM RTN A03RS 

SET MLSCF FOR RETURN 

SET RTN START SW 

CHICK LTK-'MJT 

CONTINUE WITHOUT MONITOR 



ROUTINE AOORFSS TA1LE 



0611 I 0616 

0612 1 Oo2A 

0613 1 0673 
061* 1 06F1 
0615 1 0763 



RTTRl OC 

DC 

DC 

NRTN DC 

LRTN DC 



PT! 
RT2 
RT1 
RT* 
RT5 



PEN UP-DOWN OCTAGON 
REGISTRATION TEST 
SWING TEST 
WINDMILL TEST 
MANUAL CMD SELECTION 



0305-2 
1 






© 


© 


OATE 

EC NO. 


02JAN66 
*15*90 


I 5N0V66 
*196*3 


15N0V69 
571063 


e 


© 










© 


© 











PART NO. 
PAGE 



30500700 

105007'0 

30503720 

30500730 

335037*0 

30503750 

13503760 

30503770 

10500780 

10500790 

30503300 

30503910 

30500320 

30503330 

305001*0 

30500850 

30 5 >0360 

30500170 

10500880 

30503190 

30500900 

30510910 

33503920 

305009 30 

30500940 

10530950 

30503960 

105039 70 

10500980 

3r>500990 

30501000 

30501010 

30501020 

30501030 

305010*0 

10501050 

30531060 

10501070 

10501030 

305 01090 

30501100 

30 501110 

33501120 

30501130 

305011*0 

3)501 150 

3T501 160 

10501 170 

3'">50U30 

33501193 

11501700 

1053 1710 

1)501220 

30501230 

1)50 1?*0 

30 501? 50 

30501260 

135": 770 

10511280 

10501290 

3)531300 

30501310 

33501323 

30 531330 

115)13*0 

1)531 153 

1J50I360 

10501370 



2191236 
1* 



PROG ID 0305-2 

PAGF 1A 



3 

3 
9 

O 
3 

© 
© 
9 
3 
O 
3 
3 
3 
O 
9 
3 
3 
3 
3 
3 
O 
3 

3 
J 
3 
O 

<J 
O 
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1 * 
I © 

© 
© 



OATE 
EC NO. 



0616 1 
0618 1 
061A 
06 IB 
0610 
061E 
061F 
0621 
062 3 



**00 070F 

C*00 0871 
62F1 

0600 0850 
7202 
70FC 

6500 0877 

6D00 0974 

♦400 0792 



062S 1.7*01 047* 
0627 1 **00 0792 
0629 *0C8 



062A 1 4*00 070F 



06 2C 
06 2E 
0630 
0632 
063* 
0636 
0638 
06 3A 
06 3C 
063E 



6700 

1 6F00 
1 6F00 
1 6F00 
1 6F00 
1 6F00 
1 6F00 

6700 

1 6F00 
I 6F00 



0640 1 

06*2 I 

06** 

06*5 

06*7 

06*9 

06*8 

06*0 

06*F 



6*00 
6030 
63FB 
6F00 
4*00 
7*01 
6700 
6F00 
4400 



0064 
085C 

0B5A 
084E 
0850 
0856 
0858 
0032 
08 52 
0854 

03CA 
0874 

036D 
792 
087* 
03E8 
0*52 
0792 



0651 
0653 
0655 
0656 
0658 
0659 



1 7*FE 087* 

1 7*01 0860 

70F9 

1 7*03 087* 

63FB 

1 6F00 086D 



065B 1 **00 0792 

0650 1 7*FE 087* 

065F 1 7*01 0860 

0661 70F9 

0662 63F6 

0663 1 6F00 0860 
0665 1 7*03 OUT, 

0667 I 4«00 0792 

0669 1 7*F8 037* 

0668 1 7*01 0860 
0660 70F9 

066E 1 7*09 087* 

0670 6332 



02JAN66 
*15*90 



1 5N0V66 
*196*3 



***♦♦*««»*«*♦****♦*»««««».«««„,,,»„.„„,,, 

***** ROUTINE 1- OCTAGON PEN UP-OOWN 

*********»*********«*«»*«******•♦«*««*«««„« 



RT1 BSI 
LO 
LOX 

OCTGN STO 

MOX 
MOX 
LOX 
STX 
BSI 

• 

MOX 
BSI 
BSI 

* 

*•*••*••** 

***** 

********** 



L READY 
L KOI 50 

2 -15 
L2 NNC15 

2 2 

OCTGN 
LI RT1ST 
LI LOOK 
L DISP 



SC 



L LOOK, 1 
L DISP 
CNTRl 



CONSTANT OF 150 
INSTR CT EO 1.5 INCH 

STORE MOVE COUNT 

FINISH STORING COUNT 



CALL DISPATCH RTNE SC 

BUMP INSTR AOOR PNTR 
CALL DISPATCH RTNE SC 
RETURN TO CONTROL kTN 



********************************** 

ROUTINE 2- REGISTRATION TEST ** 
********************************** 



RT2 BSI 

• 

LOX 
STX 
STX 
SIX 

STX 
STX 
STX 
LOX 
STX 
STX 
• 

LDX 

STX 
LOX 
STX 
BSI 
MOX 
LDX 
STX 

REG01 BSI 

* 

MOX 
MOX 
MOX 
MOX 
LDX 
STX 
* 

REG02 BSI 

MOX 
MOX 

MOX 

* 

LOX 
STX 
MOX 

* 

REG03 BSI 
MOX 
MOX 

MDX 
* 

MDX 
LOX 



1SN0V69 
571063 



I REAOY 

L3 100 

L3 NH 

L3 SM 

L3 NN 

L3 S 

L3 NE 

L3 SE 

L3 50 

L3 EE 

LJ WW 

LI RT2ST 
LI LOOK 

3 -5 
L3 EXTRA 
L CIS" 
L LOOK,! 
L3 1000 
L3 EE 
L OISP 



SC 



L LOOK, -2 
L EXTRA, 1 

REG01 
L LOOK, 3 

3 -5 
L3 EXTRA 



OISP 
LOOK, -2 
EXTRA, 1 
REG02 



INITIALIZE INSTR CTRS 
TO 100, EOUAL TO 
I INCH OF PLTR 0/P. 



INITIALIZE INSTR CTRS 

TO 50, EOUAL TO 

0.5 INCH OF PLTR 0/P. 

STRING AOOR 
RT TWO STRING 

CT* STG 

CALL DISPATCH RTNE SC 

BUMP INSTR AOOR PNTR 

LOAO 10 INCH PLOT 

MOVEMENT TO EAST 

CALL OISPATCH RTNE SC 

B»CK UP AOOR POINTER 



CALL DISPATCH RTNE SC 
BACK UP AOOR POINTER 



3 -10 
13 EXTRA 

I L0OK.3 



DISP 

LOOK, -8 
EXTRA, I 
REG03 

LOOK, 9 
50 



LOAO XR 3 



CALL OISPATCH RTNE SC 

SACK UP AOOR POINTER 



BUMP ADOR POINTER 
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30S013S0 

30501390 

30501*00 

30501*10 

30501*20 

30501*30 

30501*40 

30501450 

30501460 

30501470 

30501480 

30501490 

30501500 

30501510 

30501520 

30501530 

30501540 

30501550 

30501560 

30501570 

30501580 

30501590 

30501600 

30501610 

30501620 

30501630 

30501640 

30501650 

30 50 I 660 

30501670 

30 501680 

30501690 

30501700 

30501710 

30501720 

30501730 

30501740 

30 501750 

30501760 

30501770 

30501 780 

30501790 

30501800 

30501810 

30501320 

30501830 

30501840 

30501350 

30501360 

30501870 

30501880 

30501890 

30501900 

30501910 

30501920 

30501930 

30501940 

30501950 

30501960 

30501970 

30501980 

30501990 

30502000 

30502010 

30502020 

30502030 

30502040 

30502050 
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0671 1 6F00 0850 
0673 6700 03E8 
0675 1 6F00 0354 
0677 I 4400 0792 



STX 


L3 


S 


LOX 


L3 


1000 


STX 


L3 


WW 


BSI 


L 


OISP 



0679 1 4400 05F2 



BSI L CNTRL 



CALL OISPATCH RTNE SC 
RETURN TO CONTROL RTN 



0305-2 
2 





i 

i 


0678 1 44C0 07DF 


RT3 


BSI 


L REAOY 


• 




067D 6328 




LOX 


3 *0 




067E 632C 




STX 


3 SWNG2C1 






06 7F 6700 00C8 




LOX 


13 200 


• 




0631 > 6F00 03*E 




STX 


L3 NN 




0683 636-, 




LDX 


3 100 






0684 1 6F00 0356 




STX 


13 NE 


• 


• 


0686 6332 




LOX 


3 50 


0687 1 6F00 0852 




STX 


13 EE 






0689 1 6500 03E9 




LOX 


LI RT3ST 


• 


t 

© 


063B 1 6030 0874 




STX 


LI LOOK 


0630 1 4400 0792 




SSI 


L DISP 






068F 1 7h01 0874 




MDX 


I LOOK , 1 


• 


• 


0691 6700 0IF4 




LDX 


L3 500 


0693 1 6F0O 035C 




STX 


L3 NW 






0695 1 6F00 0353 




STX 


L3 SE 


• 


■ • 


069 7 I 6F00 0S5A 




STX 


L3 SW 


069<) 6319 




LOX 


3 25 






069A I 6F00 0850 




STX 


L3 S 


• 


: • 


069C 1 6F0O 0354 




STX 


L3 WW 


069E 6700 03E8 




LOX 


L3 1000 






06A0 1 6F00 084E 




STX 


L3 NN 


© 


: • 


06A2 1 6F00 0352 




STX 


L3 EE 


06A* 6305 




LDX 


3 5 






06A5 1 6F00 0875 




STX 


L3 SORCT 


• 


' • 


0647 6302 


* 
SWNG1 


LOX 


3 2 






06A8 1 6FO0 0876 




STX 


L3 TRICT 


• 


© 


06mA 6 7C0 0028 


SWNG2 


LOX 


L3 *0 


06AC 1 6F00 C36D 




STX 


L3 EXTRA 






06AE 1 *400 0792 


SWNG1 


BSI 


L DISP 


• 


© 


06BO I 7*FF 087* 




MDX 


L LOTK.-1 


06B2 1 7*FF 0360 




MOX 


I EXTRA, -I 






06B* 70F" 




MDX 


S«NG3 


© 


• 


06B5 1 7*02 03 7* 




MOX 


L LOOK, 2 


C.6B7 1 7*FF 0376 




MOt 


L TRICT, -1 






06B9 7OF0 




MDX 


Sw.'4G2 


o 


© 


063A 1 7*9C 08*E 




MOX 


L NN.-100 


068C 1 749C 03*E 




MOX 


L NN.-lOO 






06BE 1000 




NOP 




• 


o 


C6BF 1 7*9C 0352 




MOX 


L EE.-100 


06C1 1 7*9C 0352 




MOX 


L EF.-100 






06C3 1300 




NOP 










06C* I 74F3 05AB 




MOX 


L SWNG2U,- 


06C6 10J0 


KcEP 


NOP 








06C7 1 **00 0792 




BSI 


L OISP 


• 


o 


06C9 1 74F7 03 7* 




MDX 


L LOOK. -9 


OACB I 7*FF 375 




MOX 


L S3«CT,-l 






06C0 7009 




MOX 


SW4G1 


© 


o 


06C6 1 7*3A 087* 




MDX 


L LOOK, 10 


0600 6700 OiE8 




LDX 


L3 l-">0 






06D2 1 6F00 Ce*E 




srx 


L3 »N 


• 


© 


060* 1 6FC0 0350 




STX 


L3 S 


0606 1 4*00 792 




BSI 


L DISP 






06D3 1 7*01 037* 




MD» 


L IUUK.1 


e 


© 


0604 6302 




LUX 


1 2 


060B 1 6F00 0376 




STX 


L3 TRICT 


• 


© 














OATE 02JAN66 1 SN0V66 


15N0V69 




A 


df% 


EC NO. * 15*90 * 196*3 


•71063 





******•*******'•**********•»*«***»«»««»««»„ 

**** ROUTINE 3- JwING TEST ********* 

*************•****»*******••«****»««««««««« 



SC 
LINE LENGTH MODIFIED PR01 



LOAD AODR STRING AOOR 
STO IN POINTER CTL MO 

SC 
BUMP INSTR AOOR PNTR 



INITIALIZE SQUARE CTR 



LINE LENGTH CTL PM01 

CALL OISPATCH RTNE SC 

BACK UP AODR POINTER 

PLT NXT LINE SEGMENT 



•8 AOJJST LINE LENGTH 
MOX WILL HOP THIS 
CALL DISPATCH RTNE 

REDUCE SQUARE CTR 

RE-INITIALIZE 

3UMP INSTR ADOR PNTR 



CALL OISPATCH RTNE SC 
BUMP INSTR AOOR PNTR 
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30502060 

305020 '0 

305O20BO 

30502090 

30502100 

30502110 

30502120 

3J502130 

30502J40 

30502150 

30502160 

30502170 

30502180 

30502190 

30502200 

30502210 

30502220 

30502230 

30502240 

30502250 

30502260 

30502270 

30502280 

30502290 

30502300 

30502310 

30502320 

30502330 

30502340 

30502350 

30502360 

30502370 

30502380 

30502390 

30502400 

30 502*10 

30 502*20 

30502430 

30502**0 

30502*50 

30502*60 

30502*70 

30 502*80 

305 32*90 

30502530 

30 5 32510 

30502520 

30502530 

305025*0 

30502550 

30502560 

30502570 

30502580 

30502590 

30502600 

30502610 

30502620 

30532630 

305026*0 

30502650 

30 502660 

305026 70 

33502680 

30502690 

30502700 

30502710 

10502720 

30 502730 
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9 
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© 
9 
9 

9 

• 

• 
9 
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© 
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o 
e 
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IBM MAINTENANCE DIAGNOSTIC PROGRA" FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



060D 
06 OE 1 
06EO 1 
06E2 
06E3 1 
06E5 1 
06E7 1 
06E9 1 
06EB 



6319 

6F0O 0H5C 

6F00 0P56 
6314 

6F00 086D 

4*00 0T92 

74FF 08 74 

74FE 0860- 
T0F9 



06EC 1 7402 0B74 

06EE 1 74FF 0876 

06F0 70F1 

06F1 1 4400 05F2 



06F3 
06F5 
06F7 
06 F9 
06FB 
06F0 
06FF 
0701 
0703 
0704 
0706 
0708 
0709 
070A 
C70C 



440C 
6700 
6F00 
6F00 
6700 
6F0O 
1 4400 
1 7401 
62F1 
C400 
0600 
7202 
70FC 
6700 
4019 



07DF 
015F 
C856 
C84E 
0906 
0874 
0792 
0874 

086F 

03S0 



C856 



0700 1 6700 0858 

070F O 4016 

710 1 6 700 085* 

0712 4013 

0713 1 6700 085C 

0715 4010 

0716 6700 O0C8 
0718 1 6F00 C95C 
07 1A I 6F00 0856 
OTIC 1 6F00 0158 
07 IE 1 6F0O 0«5A 
07 >0 1 7401 0874 

07 22 14400 0792 

0724 I 4400 05F2 



LOX 
STX 
STX 

010 LDX 
STX 

SWNG4 BSI 
HOX 
MDX 
MOX 

* 

HOX 
MOX 
MOX 



3 25 
L3 NU 
L3 NE 

3 20 
13 EXTRA 
L OISP 
L IOOK,-1 
L EXTRA.-l 
SWNG4 



CALL DISPATCH RTNE 



PSI 



L LOOK, 2 
I TRICT. -1 
OLD 

L CNTKl 



RETURN TO CONTROL RTN 



***** 

***** 

***** 

* 

RT4 



*************************************** 

ROUTINE 4- WINDMILL DESIGN **** 
*************************************** 



HMIL1 



BSI 

LOX 

STX 

STX 

LOX 

STX 

BSI 

MOX 

LOX 

LD 

STO 

MOX 

MDX 

LDX 

asi 

LOX 
BSI 



L READY 
L3 351 
L3 NE 
L3 NN 
L3 RT4ST 
L3 LOOK 
L OISP 
L LOOK.l 

2 -15 
L K0002 
L2 NNE15 
2 2 

WMIL1 

NE 

TCNTL 



L3 



CHECK STATUS SC 

SET COUflT 



LD RT4 CMO STRNG ADDR 

CALL DISPATCH RTNE SC 
BUMP INSTR ADDR PNTR 

MOVE COUNT 
STORE MOVE COUNT 

FINISH LOADING COUNT 



L3 SE 

TCNTL 



LOX L3 SW 
BSI TCNTL 



LDX 


L3 


NU 


BSI 




TCNTL 


LOX 


L3 


200 


STX 


L3 


NU 


STX 


L3 


NE 


STX 


L3 


SE 


STX 


L3 


SU 


MOX 


L 


LOOK.l 


BSI 


L 


OISP 


BSI 


L 


CNTRL 



BUMP INSTR ADDR PNTR 

DRAW SQUARE SC 

RETURN TO CONTROL RTN 



TRIANGLE CONTROL ************** 



© 








* 








G 






0726 C 0000 

0727 6B29 

0728 6B2F 

0729 6B35 
072A 6305 
072R 1 6F00 0876 


TCNTL 

RUN 


DC 

STX 

S'X 

SIX 

LOX 

STX 


3 
3 
3 
3 
L3 


*-* 

CHGitl 

CHG2S1 

CHG3C1 

5 

TRICT 









072D 6700 C056 
072F 1 6F00 086D 


LOX 
SIX 


LI 
L3 


36 
EXTRA 






















DATE 
EC NO. 


02JAN66 1?N0V66 
415490 419643 


15N0V69 
571063 






G 
















r- 

















SE 



START TRIANGLE ONE 
TRIANGLE COUNT 

START TRIANGLE 
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30502740 

30502750 

30502760 

30502770 

30502780 

30502790 

30502800 

30502810 

30502820 

30502830 

30502840 

30502850 

30502860 

30502870 

30502880 

30502890 

30502900 

30502910 

30502920 

30502930 

30502940 

30502950 

30502960 

30502970 

30502980 

30502990 

30503000 

30503010 

30503020 

30503030 

30503040 

30503050 

30503060 

30503070 

30503080 

30503090 

30503100 

30503110 

30503120 

30503130 

30503140 

30 503150 

30503160 

30503170 

30503180 

30503190 

30503200 

50503210 

30503220 

30503230 

30503240 

30 503250 

30 503260 

30503270 

30 503280 

30 503290 

30503300 

30503310 

30503320 

30503330 

30503340 

30503350 

30503360 

30503370 

30503380 

30 503390 

30503400 

30503410 
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DATE 
EC NO. 



0731 1 4400 C792 

0733 1 74FE 0874 

0735 1 74FF 0860 

0737 70F9 

0738 1 7403 0874 
C73A 6700 0028 
073C 1 6F00 0860 

073E 4053 
073F 1 74FE CB74 
0741 1 74FF 0860 

0743 70FA 

0744 1 7403 0874 
0746 6700 0056 
0748 1 6F00 0860 

074A 4047 
074B 1 74FD 0874 
0740 1 74FF 0860 
074F 70FA 

0750 1 7430 0856 

0752 1 7404 0874 

0754 1 74FF 0876 

0756 7006 

0757 1 74D0 0856 

0759 1 7403 0874 
075B 1 4C80 0726 

075D O 4034 

075E I 7400 0806 

0760 1 74F3 0674 
0762 O 70CA 



0763 O 4480 0163 

0765 1 C78D 

0766 1 6 700 094B 
0768 1 6F00 0874 
076A 1 7400 07BC 
076C 7013 



0760 





081C 




076E 





C01D 




076F 





1801 




0770 





4 304 




0771 





7001 




0772 





7007 




0773 





1809 




0774 





100A 




0775 


1 


04C0 


0365 


0777 


1 


4420 


0792 


0779 





70EC 





077A 1 6700 0760 

■077C I 6FO0 05E6 

077E 1 4C0O 07B9 

0730 COOB 

07.11 1802 



02JAN66 
415490 



I 5':0V66 
41964i 



SIDEl BSI 

MOX 

MOX 
MOX 

• 

MOX 
LOX 
STX 

* 

SIDE2 BSI 

MOX 
MOX 
MDX 

MOX 
LDX 
STX 

* 

SIDE3 BSI 

MOX 
MDX 
MDX 



CHGl 



CHG2 



TOP 
CHG3 



MDX 
MOX 
MDX 
MDX 

MOX 
MOX 

BSC 

BSI 
MOX 
MOX 

MDX 



L OISP 
L LC0K.-2 
L EXTRA.-l 
SIDEl 

L LOOK, 3 

L3 43 

L3 EXTRA 

OISP 
L LOOK, -2 
L EXTRA.-l 

SIDE2 

L LOOK, 3 
L3 86 
L3 EXTRA 

OISP 
L LOOK, -3 
L EXTRA.-l 

SIDE 3 

L NE.48 
L LOOK, 4 
L TRICT, -1 
TOP 

L NE.-48 
L Li.OK.3 
1 TCNTL 

OISP 
L NE.-43 
L LOOK, -13 

RUN 



PLOT SIDE ONE 



PLOT SIDE TWO 



PLOT SIDE THREE 



TRIANGLE COUNT 



SX 



00 ANOTHER TRIANGLE 



********** 

***** 

********** 



************************************* 

ROUTINE 5- MANUAL CONTROL 
****♦***********«***********»«**«»»*« 



RT5 



RT5E 



KT5A 



BSI 

DC 

LOX 

STX 

MOX 
MDX 

XIO 

LO 

SUA 

fiSC 

MOX 

MOX 

SRA 
SLA 
STO 

PSI 

MDX 

LUX 
STX 
BSC 

LD 

SRA 



1 5NPV69 
571063 



I LOG 
SW'MSG 

L3 RT5ST 

L3 LOOK 

L RTSSW.O 
RT5C 

SWCOM 

RT5SM 

I 

E 

RT5B 

RT5D 

9 

10 

l saswr 

L OISP.Z 
RT5E 

L3 RT5A 
L3 KLSCFC1 
L WAIT4 

RT5SW 



, TYPE -".FT SWS MSG 
T4i>LE ADDRESS 
PLACE CNTR AODR IN 
0/P ROUTINE 
SKIP IF FIRST ENTRY 
BR IF 2N0 ENTRY 

READ CONS SWS 

CHECK BIT 14 
SKIP IF NOT ON 
BR IF SW 14 ON 

BR IF NOT ON 

CLEAR LOWER C0MN3 

SHIFT C3HN3 TO HIGH ORDER 

SIORE COMNO 

GO TO DISPATCH 



RFTURN POINT 

CHK SW 1 ANO GO TO MON 

LOAD SW ENTRY 

CLfAR BUS 14 AND 15 
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30503420 

30503430 

30503440 

30503450 

30503460 

30503470 

30 5034 80 

30503490 

30503500 

30503510 

30503520 

30503530 

30503540 

3 1503550 

30503560 

30503570 

30503580 

30503590 

30503600 

30503610 

30503620 

30503630 

30503640 

30503650 

30503660 

30503670 

30 503680 

30503690 

30503700 

30503710 

30503720 

30503730 

30503740 

30503750 

30503760 

30501770 

30503780 

30503790 

30503BOO 

30503110 

30503820 

30503830 

30503840 

30 503850 

30503860 

30503870 

30 50 3880 

30503390 

30503900 

3.150391O 

30503920 

30503930 

305G1940 

3050 3950 

30503960 

30503970 

3050J980 

30501990 

10504000 

30504010 

1O504020 

30 SO 40 30 

30504040 

30504050 

30504060 

30504070 

30504080 

30504G90 



PROG 10 
PAGE 



2191236 
3A 



0305-2 
3A 



o 
o 
o 

-/ 

o 
o 

o 
o 
o 
o 
o 
a 
o 
o 
o 
o 

/> 

*■& 

o 
o 



c 
c 
c 

e 

Q 
O 



© 

© 

© 
© 



© 

G 
O 
Q 
O 

e 
o 

G 

e 

© 
e 

o 
o 

© 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



DATE 
EC NO. 



078? 100A 
0783 1 D400 0865 

0785 6300 

0786 6805 

078 7 1 4*20 0792 
0789 TODC 



078A 




0000 


078A 


1 


078C 


078B 





3A00 


078C 





0000 


0780 





0001 


078E 





0000 


078F 





0000 


0790 


1 


0967 


0791 





0000 



0792 0000 

0793 1 6580 0874 
C795 CD80 0000 
0797 1 DCOO 086A 

0799 I 4C98 0792 

0793 4043 

79C 1 OCOO 0868 

079E 1 OCOO 0866 

07A0 1 0400 0836 



C7A2 6500 1000 

07A4 6939 

07A5 1 6500 07AE 

07A7 1 7400 05E6 

07A9 O 700F 

07AA 1 6000 05E5 

07AC 1 4400 07FE 

D7AE I 74FF 070E 

07EO 70F4 

0781 1 C400 083,6 

07R3 1 F400 OB37 

0705 1 4420 0B13 

07B7 1 4C00 081A 

0789 I C400 05E0 

0738 1 4C08 07C1 

07R0 1 9400 0500 

07eF 1 4420 05F2 

07CI 1 4400 07FF 

07C3 I 4C80 05E6 



02JAN66 
415490 



15N0V66 
419643 



SLA 
STO 

LDX 
STX 
BSI 
MOX 

* 

BSS 

SWCON OC 
DC 

RT5SW DC 

SWMSG OC 
OC 
DC 
OC 
DC 



10 
L SBSW2 
3 O 

3 RTSSW 

L OISP.Z 

RT5E 

E 

RT5SW 
/3A00 
*-* 
1 



ASETS 
■ 



SHIFT COMNO TO HIGH ORDER 
STORE COMNO 



CLEAR SW FOR NEXT ENTRY 
GO TO DISPATCH 



READ CONS SW IOCC 



SWITCH SETTING 
MSG NO 



ALPHA MESSAGE ADDR 



***«*********************»■**»*»**«»«*»*»*•«»« 
***** DISPATCH CONTROL »*«****«»»»»« 

********♦**********•**»**«»**»«*»***•♦**♦♦*««*» 



RETURN ADDR SE 

RESTORE XR 1 

GET COUNT C DIRECTION 



DISP 


OC 




»-* 


I.EXT 


tax 


11 


LOOK 




LOO 


U 





t 


STO 


L 


COUNT 




BSC 


, 


DISP.E- 


PLOT 


BSI 




REAOV 




XIO 


L 


MARK 




XIO 


L 


SENSE 




STO 


L 


BDSW 



RETRN TO PROG ON ZERO SX 

MOVE COMMAND 
SENSE OSW 
SAVE ERROR OSW 



***************<-»******♦»*»»****»»**•»*»»»*« 

* INTERRUPT WAIT ROUTINE 
*****»***********««*****«♦*♦****«**«»»*****« 

* THIS SUBROUTINE WAITS FOR INTERRUPT. 

* WHEN THE INTERRUPT IS RECEIVED IT WILL 

* CHECK THE ROUTINE SELECTION SWITCH. 

* IF A NEW ROUTINE HAS BEEN SELECTED IT 

* WILL BRANCH TO THE CONTROL ROUTINE. 



WAIT 



LDX 
STX 



HAITI LDX 

MOX 
MDX 

• 

WAIT2 STX 
BSI 

WAIT3 MOX 
MOX 

LI) 

FUR 

BSI 

BSC 

• 

WAIT4 LD 
BSC 
S 
BSI 

WAIT5 BSI 
BSC 



15NCV69 
571063 



LI /1000 
1 WCNT 

LI WAIT3 
L MI.SCFC1.0 
WAIT4 

H MLSCF 
L CKLK 

L WCNT, -I 
HAITI 



BOSW 

BOSWCl 

ERK2.Z 

ERR3 

SW1 

KAIT5.C 

RIO 

CNTRL.Z 

CKLK 

MLSCFC1 



SET INTERRUPT 
WAIT CNT 



CHECK FOR INTR 

BR IF INTERRUPT OCCUREO 

SET RETURN ADDRESS 
CHECK LOCK-OUT 

OECREHENT WAIT CNT 



CK BUSY DSW 

CHECK AGAINST EXPECTED 



PRINT NO INTRPT MSG 



BCH NO RTN SELECTED 

CK FDR NEW ROUTINE 

BR IF NFW RTN 

CHFCK LOCK-OUT 

CONTINUE WITHOUT MONITOR 
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30504100 

30504110 

30504120 

30504130 

30504140 

3O5041S0 

30504160 

305041T0 

305041B0 

30504190 

30504200 

30504210 

30504220 

30504230 

30504240 

30504250 

30504260 

30504270 

30504280 

30504290 

30504300 

30504310 

30504320 

30504330 

30504340 

30504350 

30504360 

30504370 

30504380 

30504390 

30504400 

30504410 

30504420 

30504430 

30504440 

30504450 

30504460 

30504470 

30504480 

30504490 

30504500 

30504510 

30504520 

30504530 

30504540 

30504550 

30504560 

30504570 

30504580 

30504590 

30504690 

3C504610 

30504620 

30504630 

30504640 

30504650 

30504660 

30504670 

30 504680 

30504690 

30504700 

30504710 

30504720 

30504730 

30504740 

30 504750 

30 504760 

30504770 
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PAGE 
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O : © 
1 
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© 
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o ; © 
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© © 

© © 

© e 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



07C5 C070 
07C6 F070 
07C7 1 4420 0813 

07C9 C06E 
07CA O F06E 
07CB 1 4C20 081E 

07CD 1 6580 050D 
07CF 71FC 

0700 7095 

0701 I C400 050F 
07D3 EC80 0166 

0705 100A 

0706 1 4C2 8 079B 

0708 1 74FF 096A 

07DA 70C0 

073B 1 7401 0874 

07JD 70B5 



07DE 0000 



DATE 
EC NO. 



CONT 


LO 




SDSW 
BOSWCl 


CK BUSY DSW 


* 


BSI 


L 


ERR2.Z 






LO 




IOSW 


CK INTERRUPT OSW 




EOR 




I0SWE1 






BSC 


L 


ERR4.Z 




CONTl 


LDX 


11 


RID 


CK FOR RTN 5 




"OX 


1 


-4 




9 


MDX 




RT5E 


BR IF RTN 5 


C0NT2 


LO 


L 


SWO 


LD SWO 




OR 


I 


ERLCK 


COMB WITH MONITOR SWO 




SLA 




10 


CHECH LOCK SW 


* 


BSC 


L 


PL0T.C7 


LOOP ON FUNC IF SR 




MOX 


L 


COUNT, -I 


RFOUCE COUNT 




MDX 




PLOT 






MOX 


L 


LCOK.l 


BUMP INSTR ADDR PNTR 




MJX 




NEXT 





WAIT 'CUNT STORED HERE 



WCNT OC *-* 

» 

*************«*******♦**♦****««»♦*»*»*««««*« 
***** CHECK READY »*•*****»♦»****»«» 



RETURN ADDR SE 

SENSE OSW 

SAVE OSW 

RETURN IF READY 

IS LOCK-UUI MON SW SET 

♦ YES 



07DF 





0000 




READY 


OC 




*-* 


07E0 


1 


ocoo 


0866 




XIO 


L 


SENSE 


07E2 





D051 






STO 




OSW 


07E3 


1 


4C98 


07 DF 




BSC 


I 


READY, £- 


07E5 


I 


7400 


0812 




MDX 


L 


LKSW.O 


07E7 





70F8 






MDX 




READYC1 


07E8 





ce5D 






LOC 




MSG1 


07E9 





6101 






LDX 


I 


1 


07EA 





6203 






LDX 


2 


3 


07FB 





4037 




* 


SSI 




ELOG 


07EC 





6500 


7300 


LOX 


LI 


/7000 


07EE 





69EF 




t 


STX 


1 


WCNT 


07EF 


1 


OCOO 


0866 


NOT 


XIO 


L 


SENSE 


07F1 


1 


4C98 


07DF 




9SC 


I 


READY, C- 


07F3 


1 


6500 


07EF 




LDX 


LI 


NOT 



PRINT ERROR MSG 



sense rsw 

RETURN TO PROG ON O SX 
GET MLSCF 



0TF5 1 74FF 070E 

07F7 7001 

07F8 70E7 

07F9 1 61)00 05E6 

07FS I 4400 07FE 

07FD 70F1 



MDX L WCNT.-l 
MDX N0T1 

MOX REA0YC1 



REPRINT MSG 



NOTI STX LI MLSCFCI 
BSI L CKLK 

MOX N.1T 

****«****••»♦»***•*******»»**•***»*»#*»**♦»** 



SET MLSCF 

CHECK LOCK-OUT 



07FE 0000 
C7FF 1 7400. 0R12 
O«01 7009 



C2J4N66 
415490 



1 5N0V66 
4 19643 



* CH£CK Ll'CK-CIUI OF MONITOR 
* 

* IF e I I !5 OF FUNCTION 2 IS SET 

* MONIKlfi WILL PE BYPASSED TO CAUSE THE 

* pmir.RAM n issue xio cuvhanos as 

* FAST 'AS P'JSSIBLE TU FINS A SLOW UR 

* BINDING PLOTTER 
* 

*****■****************-*♦*******»*•****»**♦*♦»*» 

CKLK OC *-* RTN ENTRY 

HHX L LKSW.O IS LOCK-OUT SW SET 

MOX ' CMK4 * YES 



15N0V69 
571063 
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30504780 
30504793 
30504800 
10504110 
30504320 
30504930 
30504840 
30504950 
30504660 
30504370 
30504880 
30504390 
30504930 
30504910 
30504920 
30504930 
30504940 
33*04950 
30504960 
30 504970 
305049 80 
30504 990 
30505000 
3C5C5010 
30505020 
30505030 
30505040 
30505050 
30505060 
30505070 
30505080 
J0505090 
30505100 
3C505110 
305G5120 
50505 1 30 
30505140 
10505150 
30505160 
i0505170 
3C505180 
30505190 
30505200 
30505210 
3O5O5220 
30 53 5230 
30505240 
30505250 
30505260 
30505270 
3C505280 
3C505290 
30505300 
30*05310 
30505320 
30505330 
305C5340 
■>CS05350 
3050*360 
jOSr.5370 
2J505380 
30505390 
JJ50->400 
30505410 
30505420 
3C 505430 
30515440 
3050*450 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
1627 PLOTTER FUNCTION TEST 



DATE 
EC NO. 



0802 1 C400 0SE1 
0304 O 4804 

0805 O 7002 

0806 4480 0161 



LD I. SW2 
8SC E 
MDX CKLK2 

CKLK1 BSI I START 



oeoa 


6809 




CKLK2 


STX 




LKSW 


0801 


1 4C80 


07FE 


CKLK3 

* 

CKLK4 


BSC 


I 


CKLK 


0808 


1 C400 


05E1 


LO 


L 


SW2 


080D 


4804 






BSC 




E 


08 OE 


70FA 






MDX 




CKLK3 


080F 


1010 






SLA 




16 


0810 


0001 






STO 




LKSH 


0811 


70F4 






MOX 




CKLK1 



0812 O 0000 



0813 





0000 


0814 





6102 


0S15 





620C 


0816 


C831 


0817 





400B 


0818 


1 


4C80 0813 


081A 





6103 


081B 





6201 


031C 





C820 


0810 





7003 


08 IE 





6104 


081F 





6230 


0920 





C82B 


0821 





4001 


08ZZ 





70AA 



KSW DC 



GET FUNCTION 2 AND CHECK 
IS LOCK-OUT SET 

* YES 

* NO. GO TO MONITOR 

SET LOCK-OUT SWITCH 
RTN EXIT TO PROGRAM 

GET FUNCTION 2 TO CHECK 
IS LOCK-OUT SW OFF 

* NO 

CLEAR ACC ANO 

* LOCK SWITCH 

* YES 

NON-ZERO, LOCK OUT HON 



******************************************* 
»»** FRROR MESSAGE SETUP «****»»«« 

******************************************* 



RR2 



ERR3 



DC 

LOX 

LDX 

LOO 

BSI 

BSC 

LOX 
LDX 
LDO 

MDX 



ERR4 LDX 
LOX 
LDD 
BSI 

NDX 



*-* 
2 

/oooc 

MSG2 
ELOG 
ERR2 

3 

/0001 

MSG3 

ERRX 



ERRX 



1 4 

2 /0030 
MSG4 
ELOG 
C0NT1 



SET UP SUSY DSW ERR MSG 



SET UP NO INTRPT ER MSG 



SET UP INTRPT DSW ER MSG 



**** 

* 

»**♦ 



**************************************** 

ERROR MESSAGE ROUTINE 
**************************************** 

THIS ROUTINE PRINTS ALL THE ERROR MESSAGES. 

UPON ENTRY THE MSG NO. MUST BE SET IN XR1, 

THE DATA 10 IN XR2, ANO THE ALPHA AOORS IN 

THE ACCUM ANO EXT. 



0823 0000 

0824 690A 

0825 6A0S 
012b D80B 
0S27 4480 0162 
0829 1 082F 
032A 1 079B 
082B 1 *C80 0R23 



0P2E 
082F 
CR30 
0831 
0832 
0833 



0001 
0000 
0000 
0000 
0000 
O OOOO 



0834 0000 
0R35 O 0000 



ELOG 



LOOP 

* 
» 

EMSG 



DSW 



DC 

STX 

SIX 

STD 

BSI 

DC 

DC 

BSC 



»-* 

1 EMSG 

2 EHSGE2 
EMSGC3 
ERROR 
EMSG 
PLOT 
ELOG 



SET MSG NUMBER 
SET DATA 10 
SET ALPHA AOORS 
PRINT ERROR MSG 

LOOP AOORS 
RETURN 



ERROR MESSAGE TABLE 



BSS 

OC 

nc 

DC 
OC 
DC 

DC 
DC 



1 

»-* 

/OOOO 

♦-» 

♦-♦ 
*-* 

*-* 
/OOOO 



MESSAGE NUMBER 
HEX/DEC SW 
DATA I/D 
ALPHA AOORS 1 
ALPHA AOORS 2 

OSW WAS 
OSW S/B 



02JAN6O 
415490 



15N0V66 
419643 



15N0V69 
571063 
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30505460 

30505470 

30505480 

30505490 

30505500 

305C5510 

305055*0 

30505530 

30505540 

30505550 

30505560 

30505570 

30505580 

30505590 

30 505600 

30505610 

30505620 

30505630 

30505640 

30505650 

30505660 

30505670 

30 505630 

30505690 

30505700 

30505710 

30505720 

30505730 

30505740 

30 505750 

30505760 

30 505770 

30505780 

30505790 

30505800 

30505810 

30505820 

30505830 

30505840 

30505850 

30505860 

30505870 

30505880 

30505890 

305059Q0 

30505910 

30505920 

30505930 

30505940 

30505950 

30505960 

30505970 

30505980 

30505990 

30506000 

30506010 

33506020 

30506030 

30506040 

30506050 

30506060 

30506070 

30506080 

30506090 

30506100 

30506110 

30506120 

30506130 
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0305-2 

5 



o 
© 
o 

o 

© 
o 

o 

o 
o 
o 



© 

© 

© 
o 
© 

9 
o 

o 

o 



0836 o OOOO 

083.7 0002 

0838 OOOO 

0839 8000 



083A 
083B 
083D 
083E 
083F 
0841 



OOOO 

OCOC 0866 
1000 
D0F9 

6700 07C5 
6F00 05E6 



0843 1 4CB0 033A 



0846 

0846 1 

0S47 I 

0843 1 

0849 1 

084A 1 

084B 1 

084C 1 

0840 1 

084E 

084F 

0350 

0851 

0952 

0853 

C854 

0855 

0856 

0157 

0855 

CR59 

0P5A 

0858 

0R5C 

0S5D 

085E 

nssf 

CR60 
0861 
0862 
CRf.3 
Of.64 
0165 
0R66 
0!>6 7 



C8h8 
CS69 
086A 
CS6S 
036C 
C86D 
0J6E 
0B6F 
OS 70 
?H71 
0872 



OOOO 
094 D 
0953 
094D 
0962 
0953 
0956 
0940 
095C 
OOOO 
41)00 
OOOO 
2000 
OOOO 
1000 
000(1 
0800 
OOOO 
5000 
OOOO 
30OO 
OOOO 
2800 
OOOO 
4800 
0001 
0400 
0001 
8 300 
0<.4C 
0800 
1100 
OOOO 
0030 
2F01 

0868 
2900 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
'J002 
000 7 
0096 
BFFC 



f.DSW 
IOSW 



OC 
OC 
DC 
OC 



/0302 

*-* 

/8000 



BUSY DSW WAS 
BUSY OSW S/B 
INTERRUPT DSW WAS 
INTERRUPT DSW S/B 



***** 

***** 

***** 

* 

RECEV 



***************** *•****«****»»»»*„»»** 

INTERRUPT ROUTINE ************ 
*************************************** 



OC 

XIO 

NOP 

STO 

LDX 

STX 

asc 



* 

****** 
***** 
****** 



L SENSE 

IOSW 
L3 CONT 
L3 MLSCFtl 
I RECEV 



RETURN ADDR SE 

SENSE DSW 

USE FOP TRAP 

SAVE DSW ERROR BITS 



RETURN TO MONITOR SX 



***•******•**************************, 4 
STORAGE AREA **•********•**•*•* 
***»**»*******«*******************«,** 



MSG1 
MSG2 
MSG3 
MSG4 

NN 

s 

EE 

WW 

NE 

SE 

SW 

NW 

PrNUP 

PENDW 

LEFT 

PSKfl 
SBSW2 
SINT.F 

* 
HARK 

COU\T 
COMAD 
CONSI 
EXTRA 
KOOCO 
K0PO2 
K0007 
K0I50 
K40O3 



BSS 

DC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
OC 
OC 
OC 
DC 
DC 
OC 
DC 
OC 

or. 

DC 
DC ■ 

nc 

OC 
OC 
DC 
DC 
.DC 
DC 
OC 
DC 





AWS8 

ADSW 

AWSB 

ABDSW 

ADSW 

AN I NT 

AWSB 

AtOSW 

/0030 

/4 300 

/OOOO 

/2000 

/OOOO 

/1000 

/OOOO 

/0800 

/OOOO 

/5000 

/OOOO 

/30)0 

/OOOO 

/2800 

/OOOO 

/4800 

/0001 

/0400 

/OOOl 

/8000 

1100 

/0«00 

/1100 

*-* 

/OOOO 

/2F01 

COVAD 

/2«-}0 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/OOOO 

/0002 

/0007 

150 

/BFFC 



MOVE COUNT 
OIRtCTlON 



CMD EXECUTE CNTR 
PLOt CMO STORAGE. 
SENSF DSW C RESET 



OIRtCTlON COMMAND 



ZERO CONSTANT 



CONSTANT 
CONSTANT 



PART NO. 2191236 
PAGE 5A 



DATE 
EC NO. 



02JAN66 
415490 



15N0V66 
419643 



15NDV69 
571063 



30506140 

33506150 

30506160 

3050617O 

30506180 

30536190 

30506200 

33506210 

3050(j220 

335062 30 

30506 240 

30 5362 50 

30506260 

335 062 TO 

30536280 

305C6290 

30536300 

30506310 

30506320 

33506330 

33506340 

30506350 

30506360 

30506370 

30506380 

30506390 

305064 00 

30506410 

30 5364 20 

30506430 

30506440 

30506450 

30506460 

305C6470 

30506480 

30506490 

30506500 

30506510 

30506520 

30506530 

30506540 

30506550 

30506560 

33506570 

30506580 

30506590 

335066 00 

3C506610 

33506620 

30506630 

30506640 

30 506650 

33506660 

33506670 

33506680 

30506690 

30506700 

30506710 

J35P6720 

30506730 

30 506740 

30506750 

30506760 

30506770 

30506780 

10506790 

30606800 

30506010 
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PART NO. 
PAGE 



2191236 

6 



© 


0873 8000 


K8000 DC 


/8000 




30506820 


087* 0000 


LOOK 


DC 


/OOOO 


START OF STRING 


30506830 




0875 0000 


SORCT DC 


/oooo 




305068*0 


e 


03 76 0000 


TRICT OC 


/ooo 


TRIANGLE COUNT 


30506850 




• 








30506860 






* 








30506870 


© 


0877 1 085E 


RT1ST DC 


PENUP 




30506880 


0378 1 0862 




DC 


LEFT 




30506890 




0879 1 0856 




DC 


NE 




30506900 


© 


087A 1 0860 
087B 1 08*E 




DC 
OC 


PENDW 
NN 


START OCTAGON NO. 1 
1A 


30506910 
30506920 




0B7C 1 085E 




OC 


PENUP 




30506930 


6 


0870 1 0852 




DC 


EE 




305069*0 


087E 1 0856 




DC 


NE 




30506950 




0S7F 1 0860 




DC 


PENDW 




30506960 


© 


0880 1 0858 
0681 1 085E 




DC 

OC 


SE 

PENUP 


2A 


30506970 
30506980 




0882 1 085A 




DC 


SW 




30506990 


© 


0883 1 0850 




DC 


S 




30507000 


088* 1 0860 




DC 


PENOW 




30507010 




0885 1 085* 




DC 


WW 


3A 


30507020 


© 


0886 1 0B5E 




DC 


PENUP 




30507030 


0387 1 08*E 




DC 


NN 




305070*0 




0888 1 085C 




DC 


tm 




30507050 





0889 1 0860 




DC 


PENOW 




30507060 


08SA 1 0856 




DC 


NE 


*A 


30507070 




0888 1 08SE 




DC 


PENUP 




30507080 


© 


088C 1 0859 
0B80 1 0852 




DC 
OC 


SE 

EE 




30507090 
30507100 


G 


088E 1 0860 
088F 1 0850 
0890 1 085E 




DC 
OC 
DC 


PENOW 

S 

PENUP 


5A 


30507110 
30507120 
30507130 


O 


0891 1 085* 

0892 1 085A 

0893 1 0860" 




DC 
DC 
DC 


WW 

sw 

PENDW 




305071*0 
30507150 
30507160 




089* 1 085C 




DC 


NW 


6A 


30507170 




© 
© 
© 


CR95 1 085E 

0896 1 0856 

0897 1 08*6 
089.8 1 0860 
0B99 1 0852 
089A I 085F 
089B 1 0850 
089C 1 0858 
0890 1 0860 
089E 1 085A 
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PUT PEN AT LEFT MARGIN 
POSITION PEN FOR START 



MOVE 10 INCHES EAST 
PLOT SAWTOOTH PATTERN 
FROM EAST TO WEST 
REPEAT FIVE TIMES 

PIOT SAWTOOTH PATTERN 
FROM WEST TO EAST 

PLOT PERPENDICULAR 
LINES, JOINING THE 
POINTS OF EACH 
SAWTOOTH. 



RPT ABOVE SEO 10 TIMES 
PLOT TOP OF PATTERN 



FLOT LINE THRU CENTER 
OF PATTERN 
END OF ROUTINE 
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POSITION PEN TO START 
SWING TEST PATTERN. 
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THE SWING TEST. 



END OF ROUTINE 3. 

PICK UP PEN ANO PUT 
IT AT LEFT MARGIN. 
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